Caclulator Visual Basic 2008

Public Class Form3

    Private Sub Form3_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Form2.Show()
    End Sub

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

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Try
            If Label1.Text = "+" Then
                TextBox1.Text = Val(My.Settings.FirstSetting) + Val(TextBox1.Text)
            End If
            If Label1.Text = "-" Then
                TextBox1.Text = Val(My.Settings.FirstSetting) - Val(TextBox1.Text)
            End If
            If Label1.Text = "X" Then
                TextBox1.Text = Val(My.Settings.FirstSetting) * Val(TextBox1.Text)
            End If
            If Label1.Text = "/" Then
                TextBox1.Text = Val(My.Settings.FirstSetting) / Val(TextBox1.Text)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, "Error")
        End Try



    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        Label1.Text = "X"
        My.Settings.FirstSetting = TextBox1.Text
        TextBox1.Text = ""
        My.Settings.Save()
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        Label1.Text = "/"
        My.Settings.FirstSetting = TextBox1.Text
        TextBox1.Text = ""
        My.Settings.Save()
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Label1.Text = "+"
        My.Settings.FirstSetting = TextBox1.Text
        TextBox1.Text = ""
        My.Settings.Save()
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Label1.Text = "-"
        My.Settings.FirstSetting = TextBox1.Text
        TextBox1.Text = ""
        My.Settings.Save()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.AppendText("7")
    End Sub

    Private Sub Button0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button0.Click
        TextBox1.AppendText("0")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.AppendText("1")
    End Sub

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

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

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.AppendText("4")
    End Sub

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

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

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

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

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

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

    End Sub
End Class