Private Sub Command1_Click()
Text3 = Val(Text1) + Val(Text2)

End Sub

Private Sub Command2_Click()
Text3 = ""
Text1 = ""
Text2 = ""

End Sub

Private Sub Command3_Click()
Text3 = Val(Text1) / Val(Text2)

End Sub

Private Sub Command4_Click()
Text3 = Val(Text1) - Val(Text2)

End Sub

Private Sub Command5_Click()
Text3 = Val(Text1) * Val(Text2)

End Sub

Private Sub mnuabout_Click()
frmAbout.Show 1
End Sub

Private Sub mnucircle_Click()
Print MsgBox("The area of a circle is Pi times radius squared.  Pi = 3.14")
End Sub

Private Sub mnuexit_Click()
Unload Me
End Sub

Private Sub mnutrapezium_Click()
Print MsgBox("The area of a trapezium is H((A+B)/2).  A and B equal the sides, and H equals the height.")
End Sub

    Source: geocities.com/matkins70