PrintScreens ~
Codes:
Option Explicit
Dim num1 As Single
Dim num2 As Single
Dim ansnumber As Single
Dim op As String
Private Sub cmd0_Click()
Text1.Text = Text1.Text & 0
End Sub
Private Sub cmd00_Click()
Text1.Text = Text1.Text & "00"
End Sub
Private Sub cmd1_Click()
Text1.Text = Text1.Text & 1
End Sub
Private Sub cmd2_Click()
Text1.Text = Text1.Text & 2
End Sub
Private Sub cmd3_Click()
Text1.Text = Text1.Text & 3
End Sub
Private Sub cmd4_Click()
Text1.Text = Text1.Text & 4
End Sub
Private Sub cmd5_Click()
Text1.Text = Text1.Text & 5
End Sub
Private Sub cmd6_Click()
Text1.Text = Text1.Text & 6
End Sub
Private Sub cmd7_Click()
Text1.Text = Text1.Text & 7
End Sub
Private Sub cmd8_Click()
Text1.Text = Text1.Text & 8
End Sub
Private Sub cmd9_Click()
Text1.Text = Text1.Text & 9
End Sub
Private Sub cmdAdd_Click()
num1 = Val(Text1.Text)
Text1.Text = ""
op = "+"
End Sub
Private Sub cmdClear_Click()
Text1.Text = ""
End Sub
Private Sub cmdDivide_Click()
num1 = Val(Text1.Text)
Text1.Text = ""
op = "/"
End Sub
Private Sub cmdEquals_Click()
num2 = Val(Text1.Text)
Select Case op
Case "+"
ansnumber = num1 + num2
Case "-"
ansnumber = num1 - num2
Case "*"
ansnumber = num1 * num2
Case "/"
ansnumber = num1 / num2
End Select
Text1.Text = ansnumber
End Sub
Private Sub cmdMultiply_Click()
num1 = Val(Text1.Text)
Text1.Text = ""
op = "*"
End Sub
Private Sub cmdPoint_Click()
Text1.Text = Text1.Text & "."
End Sub
Private Sub cmdSubtract_Click()
num1 = Val(Text1.Text)
Text1.Text = ""
op = "-"
End Sub
