Вычисление сторон треугольника по заданным углам и R - VB

Формулировка задачи:

a1 a2 a3 это альфа бета гамма

                    Листинг программы
                
 
                            
                        
Option Strict On
Option Explicit On
Imports System.Math
 
Public Class Form1
    'функция ввода углов и радиуса треугольника
    Function vvod(ByVal T As TextBox) As Single
        Return CSng(Val(T.Text))
    End Function
 
    'Функция вывода результата в TextBox
    Sub vivod(ByVal Z As Single, ByVal T As TextBox)
        T.Text = CStr(Z)
    End Sub
   
 'функция вычисления суммы углов треугольника
    Public Function summa(ByVal a1 As Single, ByVal a2 As Single, ByVal a3 As Single) As Single
        Return CSng(a1 = 180 - a2 - a3)
        a2 = 180 - a1 - a3
        a3 = 180 - a2 - a1
    End Function
 
    'Поцедура вычисления сторон треугольника по его улам и описанному радиусу
    Sub abc(ByVal a1 As Single, ByVal a2 As Single, ByVal a3 As Single, ByVal R As Integer)
        Dim a As Single, b As Single, c As Single
        a = summa(CSng(2 * R * Sin(a1))) 'Вызов ф-ции выч-я суммы углов треугольника
        b = summa(CSng(2 * R * Sin(a2)))
        c = summa(CSng(2 * R * Sin(a3)))
    End Sub
   
 'Процедура обработки события нажатия на кнопку Button2
    Private Sub Button2_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button2.Click
        Dim a3 As Single, a2 As Single, a1 As Single, R As Integer
        Dim a, b, c As Single
        a1 = vvod(TextBox1) : a2 = vvod(TextBox2) : a3 = vvod(TextBox3) : R = CInt(vvod(TextBox4))
        abc(a, b, c, R)(a1, a2, a3)
        vivod(a, TextBox5) : vivod(b, TextBox6) : vivod(c, TextBox7)
    End Sub
   
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Application.Exit()
    End Sub
End Class

Error 1 Argument not specified for parameter 'a2' of 'Public Function summa(a1 As Single, a2 As Single, a3 As Single) As Single'. Error 2 Argument not specified for parameter 'a3' of 'Public Function summa(a1 As Single, a2 As Single, a3 As Single) As Single'. Error 3 Argument not specified for parameter 'a2' of 'Public Function summa(a1 As Single, a2 As Single, a3 As Single) As Single'. Error 4 Argument not specified for parameter 'a3' of 'Public Function summa(a1 As Single, a2 As Single, a3 As Single) As Single'. Error 5 Argument not specified for parameter 'a2' of 'Public Function summa(a1 As Single, a2 As Single, a3 As Single) As Single'. Error 6 Argument not specified for parameter 'a3' of 'Public Function summa(a1 As Single, a2 As Single, a3 As Single) As Single'. Error 7 Expression is not a method. как Вы поняли применял теорему синусов и то что сумма углов ровна 180градусов помогите разобраться с кодом....очень долго мучаюсь... заранее благодарен)

Решение задачи: «Вычисление сторон треугольника по заданным углам и R»

textual
                            Листинг программы 
                        
 
                            
                        
Imports System.Math
 
Public Class Form1
    Const pi = 3.14159
 
    Private Sub УголА_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles УголА.TextChanged
        УголВ.Text = 180 - Val(УголА.Text) - Val(УголС.Text)
    End Sub
 
    Private Sub УголВ_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles УголВ.TextChanged
        УголС.Text = 180 - Val(УголА.Text) - Val(УголВ.Text)
    End Sub
 
    Private Sub УголС_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles УголС.TextChanged
        УголА.Text = 180 - Val(УголС.Text) - Val(УголВ.Text)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Сторона_А.Text = СТОРОНА(УголА.Text, Радиус.Text)
        Сторона_В.Text = СТОРОНА(УголВ.Text, Радиус.Text)
        Сторона_С.Text = СТОРОНА(УголС.Text, Радиус.Text)
    End Sub
 
    Function СТОРОНА(ByVal угол As Integer, ByVal Радиус As Integer) As Integer
        Dim U
        U = угол * pi / 180
        СТОРОНА = Sin(U) * 2 * Радиус
    End Function
End Class