Public Class Form1 Dim m, num, count As Double

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click TextBox1.AppendText("7")

End Sub

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click TextBox1.AppendText("9")

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.AppendText("1")

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox1.AppendText("2") End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click TextBox1.AppendText("3") End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click TextBox1.AppendText("4")

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click TextBox1.AppendText("5")

End Sub

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click TextBox1.AppendText("6")

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click TextBox1.AppendText("8")

End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click TextBox1.AppendText("0")

End Sub

Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

Label3.Text = "+" 'Addition Operation If TextBox2.Text = "" Then TextBox2.Text = TextBox1.Text + " + " TextBox1.Text = "" Else : TextBox2.Text = TextBox2.Text + " + " End If

End Sub

Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click TextBox2.Text = Math.Sqrt(Val(TextBox2.Text)) ' Gives the Squarroot of a number

End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

End Sub

Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click Label3.Text = "-" 'Subtraction Operation If TextBox2.Text = "" Then TextBox2.Text = TextBox1.Text + " - " TextBox1.Text = "" Else : TextBox2.Text = TextBox2.Text + " - " End If

End Sub

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click Label3.Text = "*" 'Multipacation Operation If TextBox2.Text = "" Then TextBox2.Text = TextBox1.Text + " * " TextBox1.Text = "" Else : TextBox2.Text = TextBox2.Text + " * " End If

End Sub

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click Label3.Text = "/" 'Divison Operation If TextBox2.Text = "" Then TextBox2.Text = TextBox1.Text + " / " TextBox1.Text = "" Else : TextBox2.Text = TextBox2.Text + " / " End If

End Sub

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

End Sub

Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click

If Label3.Text = "+" Then 'Addition Function TextBox2.Text = Val(TextBox2.Text) + TextBox1.Text ElseIf Label3.Text = "-" Then 'Subtraction Function TextBox2.Text = Val(TextBox2.Text) - TextBox1.Text ElseIf Label3.Text = "*" Then 'Multiplacation Funtion TextBox2.Text = Val(TextBox2.Text) * TextBox1.Text Else 'Divison Funtion If TextBox1.Text = 0 Then TextBox2.Text = "Error can not divide by 0" 'Test for Division by Zero Else

TextBox2.Text = Val(TextBox2.Text) / TextBox1.Text End If End If

End Sub

Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click TextBox2.Text = Val(TextBox2.Text) / 100 'Gives the percent of a number

End Sub

Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click TextBox1.Text = "" TextBox2.Text = "" ' Clears Both textboxes

End Sub

Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click TextBox1.Text = "" 'Clears Textbox1

End Sub

Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click

If TextBox1.Text = "" Then Exit Sub Else TextBox1.Text = CStr(TextBox1.Text) TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 1) ' Erases the last number End If

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click m = TextBox2.Text 'Saves a number to Memory

End Sub

Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click TextBox1.AppendText(".") End Sub

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click

TextBox1.Text = CDbl(TextBox1.Text) * -1 'Changes a number between positive and negitive

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click m = 0 'Clears Memory

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click TextBox2.Text = m 'Recalls what is in Memory

End Sub

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click m = m + Val(TextBox2.Text) 'Adds a number to number in memory

End Sub

Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click m = m - Val(TextBox2.Text) 'Subtracts a number to number in memory

End Sub

Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click TextBox1.Text = 1 / TextBox1.Text ' Gives the reciprical of a number

End Sub
End Class