GUI Program to demonstrate Function Procedure

Private Sub Command1_Click()
Dim radius As Single
Dim area As Single
radius = Val(Text1.Text)
area = findarea(radius)
Text2.Text = Str(area)
End Sub
Private Function findarea(r As Single) As Single
Dim a As Single
a = 3.142 * r * r
findarea = a
End Function

Private Sub Command2_Click()
End
End Sub