A Caculator using Input Box :


Source code:

''This code of for addition.
Private Sub Command1_Click()
Text3.Text = Int(Text1.Text) + Int(Text2.Text)
End Sub

''This code of for substraction.
Private Sub Command2_Click()
Text3.Text = Int(Text1.Text) - Int(Text2.Text)
End Sub

''This code of for multiplication.
Private Sub Command3_Click()
Text3.Text = Int(Text1.Text) * Int(Text2.Text)
End Sub

''This code of for divission.
Private Sub Command4_Click()
Text3.Text = Int(Text1.Text) / Int(Text2.Text)
End Sub

''This code to clear value from text box.
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub