Expand|Select|Wrap|Line Numbers
- Private Sub CmdCalc_Click()
- Dim Area As Integer
- Dim Lenght As Integer
- Dim Breadth As Integer
- Dim Base As Integer
- Dim Radius As Integer
- Dim pi As Integer
- pi = 3.142
- If OptCircle.Value = True Then (THIS IS WHERE THE ERROR IS)
- InputBox ("enter radius")
- Radius = intInputbox
- Area = pi * Radius * Radius
- LblAnswer = Area
- End If
- End Sub