Dim op As String
Dim num1 As Integer
Dim num2 As Integer


Private Sub Command1_Click()
Text1.Text = Text1.Text & 1
End Sub


Private Sub Command2_Click()
Text1.Text = Text1.Text & 2
End Sub


Private Sub Command3_Click()
Text1.Text = Text1.Text & 3
End Sub


Private Sub Command4_Click()
Text1.Text = Text1.Text & 4
End Sub


Private Sub Command5_Click()
Text1.Text = Text1.Text & 5
End Sub


Private Sub Command6_Click()
Text1.Text = Text1.Text & 6
End Sub


Private Sub Command7_Click()
Text1.Text = Text1.Text & 7
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text & 8
End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text & 9
End Sub

Private Sub Command10_Click()
Text1.Text = Text1.Text & "."
End Sub


Private Sub Command11_Click()
Text1.Text = Text1.Text & 0
End Sub
Private Sub Command17_Click()
Text1.Text = ""
End Sub

Private Sub Form_Load()

End Sub