Dim a# ,b#, c#,p#
Private Sub Command1_Click()
p = 3.1415926
a = 2 * Val(Text1.Text)
b = p * (Val(Text1.Text))^2
c = 2 * p * Val(Text1.Text)
Label1.Caption = a & "---" & b & "---" & c
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Label1.Caption = ""
End Sub