Private Sub Command1_Click()
Label1.Caption = Int(Text1.Text) + Int(Text2.Text)
End Sub
Private Sub Command2_Click()
Label1.Caption = ((Int(Text1.Text) * Int(Text2.Text)) / (Int(Text1.Text) + Int(Text2.Text)))
End Sub
Private Sub Command3_Click()
Label1.Caption = ""
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command4_Click()
End
End Sub