Sep 08, 2005 08:42
Private Sub Form_Load()
End Sub
Private Sub sub_Click()
Dim X As Double
Dim Y As Double
Dim result As Double
X = insertfirst.Text
Y = insertsecond.Text
result = X - Y
answer.Caption = result
End Sub
Private Sub times_Click()
Dim X As Double
Dim Y As Double
Dim result As Double
X = insertfirst.Text
Y = insertsecond.Text
result = X * Y
answer.Caption = result
End Sub