Private Sub Command1_Click()Dim r As SingleDim c As SingleDim s As Singler = Val(Text1.Text)c = 2 * 3.14159 * rs = 3.14159 * r * rText2.Text = cText3.Text = sEnd Sub