Simple calculator......
Dim n1, n2, ans As Variant
Dim cal As String
Private Sub cmdAdd_Click()
n1 = Val(txtDisplay.Text)
cal = "Add"
txtDisplay.Text = ""
End Sub
Private Sub cmdClear_Click()
txtDisplay.Text = ""
n1 = 0
n2 = 0
ans = 0
cal = ""
End Sub
Private...