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