Public Class Form1
Dim mfirst As Double
Dim msecond As Double
Dim manswer As Double
Dim mbutton As Double
Dim Signstate As Boolean
Private Sub cmd0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd0.Click
Me.TextBox1.Text = (Val(Me.TextBox1.Text) * 10) + 0
End Sub

Private Sub cmd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd1.Click
Me.TextBox1.Text = (Val(Me.TextBox1.Text) * 10) + 1

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub cmd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd2.Click
Me.TextBox1.Text = (Val(Me.TextBox1.Text) * 10) + 2
End Sub

Private Sub cmd3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd3.Click
Me.TextBox1.Text = (Val(Me.TextBox1.Text) * 10) + 3

End Sub

Private Sub cmd4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd4.Click
Me.TextBox1.Text = (Val(Me.TextBox1.Text) * 10) + 4

End Sub

Private Sub cmd5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd5.Click
Me.TextBox1.Text = (Val(Me.TextBox1.Text) * 10) + 5

End Sub

Private Sub cmd6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd6.Click
Me.TextBox1.Text = (Val(Me.TextBox1.Text) * 10) + 6

End Sub

Private Sub cmd7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd7.Click
Me.TextBox1.Text = (Val(Me.TextBox1.Text) * 10) + 7

End Sub

Private Sub cmd8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd8.Click
Me.TextBox1.Text = (Val(Me.TextBox1.Text) * 10) + 8

End Sub

Private Sub cmd9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd9.Click
Me.TextBox1.Text = (Val(Me.TextBox1.Text) * 10) + 9

End Sub

Private Sub cmd_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_add.Click
mbutton = 1
mfirst = Val(Me.TextBox1.Text)
Me.TextBox1.Text = ""

End Sub

Private Sub cmd_sub_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_sub.Click
mbutton = 2
mfirst = Val(Me.TextBox1.Text)
Me.TextBox1.Text = ""
End Sub

Private Sub cmd_mul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_mul.Click
mbutton = 3
mfirst = Val(Me.TextBox1.Text)
Me.TextBox1.Text = ""
End Sub

Private Sub cmd_div_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_div.Click
mbutton = 4
mfirst = Val(Me.TextBox1.Text)
Me.TextBox1.Text = ""
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
msecond = Val(Me.TextBox1.Text)
Select Case mbutton

Case Is = 1
manswer = mfirst + msecond
Case Is = 2
manswer = mfirst - msecond
Case Is = 3
manswer = mfirst * msecond
Case Is = 4
manswer = mfirst / msecond
Case Is = 5
manswer = System.Math.Pow(mfirst, msecond)
End Select
Me.TextBox1.Text = manswer
End Sub

Private Sub cmd_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_exit.Click
'exit(Me)
End Sub

Private Sub cmd_cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_cancel.Click
Me.TextBox1.Text = ""

End Sub

Private Sub cmddot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddot.Click
Me.TextBox1.Text = Me.TextBox1.Text + "."

End Sub

Private Sub Btn_pow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_pow.Click
mbutton = 5
mfirst = Val(Me.TextBox1.Text)
Me.TextBox1.Text = ""

End Sub
End Class