Sisi miring visual basic

Berikut ini adalah salah satu program untuk menghitung sisi miring segitiga siku-siku menggunakan visual basic.

Option Explicit
Dim a As Single, b As Single, c As Single

Private Sub Command1_Click()
    a = CSng(Text1)
    b = CSng(Text2)
    c = Sqr((a ^ 2) + (b ^ 2))
    Text3 = CCur(c)
End Sub

Private Sub Command2_Click()
    End
End Sub