Dim radius As Integer
Dim result As Double

Private Sub Command1_Click()
Randomize
radius = (12 * Rnd + 1)
Text1.Text = radius

End Sub

Private Sub Command2_Click()
pi = 3.14
If Val(Text2) = radius * radius * pi Then
    Print MsgBox("Correct")
Else: Print MsgBox("Incorrect")

End If


End Sub

Private Sub Command3_Click()
pi = 3.14
If Text2 = "Matkins" Then
Text2 = radius * radius * pi
Else: Text1 = ""
      Text2 = ""
End If

End Sub

Private Sub Command4_Click()
Calculator.Show
End Sub

    Source: geocities.com/matkins70