Dim total1 As Integer
Dim total2 As Integer
Private Sub btnEight_Click()
txtDisplay.Text = txtDisplay.Text & btnEight.Caption
End Sub
Private Sub btnFive_Click()
txtDisplay.Text = txtDisplay.Text & btnFive.Caption
End Sub
Private Sub btnFour_Click()
txtDisplay.Text = txtDisplay.Text & btnFour.Caption
End Sub
Private Sub btnNine_Click()
txtDisplay.Text = txtDisplay.Text & btnNine.Caption
End Sub
Private Sub btnOne_Click()
txtDisplay.Text = txtDisplay.Text & btnOne.Caption
End Sub
Private Sub btnSeven_Click()
txtDisplay.Text = txtDisplay.Text & btnSeven.Caption
End Sub
Private Sub btnSix_Click()
txtDisplay.Text = txtDisplay.Text & btnSix.Caption
End Sub
Private Sub btnThree_Click()
txtDisplay.Text = txtDisplay.Text & btnThree.Caption
End Sub
Private Sub btnTwo_Click()
txtDisplay.Text = txtDisplay.Text & btnTwo.Caption
End Sub
Private Sub cmdEquals_Click()
txtDisplay.Text = "Hai"
End Sub
Private Sub cmdPlus_Click()
total1 = total1 + Val(txtDisplay.Text)
txtDisplay.Text = ""
End Sub