Option Strict On
Public Class calculatorForm

    Dim m_firstNumberDecimal As Decimal
    Dim m_secondNumberDecimal As Decimal
    Dim m_operator As String

    Private Sub num1Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num1Button.Click

        displayLabel.Text = displayLabel.Text & "1"

    End Sub

    Private Sub num2Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num2Button.Click

        displayLabel.Text = displayLabel.Text & "2"

    End Sub

    Private Sub num3Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num3Button.Click

        displayLabel.Text = displayLabel.Text & "3"

    End Sub

    Private Sub num4Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num4Button.Click

        displayLabel.Text = displayLabel.Text & "4"

    End Sub

    Private Sub num5Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num5Button.Click

        displayLabel.Text = displayLabel.Text & "5"

    End Sub

    Private Sub num6Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num6Button.Click

        displayLabel.Text = displayLabel.Text & "6"

    End Sub

    Private Sub num7Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num7Button.Click

        displayLabel.Text = displayLabel.Text & "7"

    End Sub

    Private Sub num8Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num8Button.Click

        displayLabel.Text = displayLabel.Text & "8"

    End Sub

    Private Sub num9Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num9Button.Click

        displayLabel.Text = displayLabel.Text & "9"

    End Sub

    Private Sub num0Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num0Button.Click

        displayLabel.Text = displayLabel.Text & "0"

    End Sub

    Private Sub decimalButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles decimalButton.Click

        displayLabel.Text = displayLabel.Text & "."

    End Sub

    Private Sub plusButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plusButton.Click

        m_firstNumberDecimal = CDec(displayLabel.Text)
        m_operator = "+"
        displayLabel.Text = String.Empty

    End Sub

    Private Sub minusButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles minusButton.Click

        m_firstNumberDecimal = CDec(displayLabel.Text)
        m_operator = "-"
        displayLabel.Text = String.Empty

    End Sub

    Private Sub multiplyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles multiplyButton.Click

        m_firstNumberDecimal = CDec(displayLabel.Text)
        m_operator = "*"
        displayLabel.Text = String.Empty


    End Sub

    Private Sub divideButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles divideButton.Click

        m_firstNumberDecimal = CDec(displayLabel.Text)
        m_operator = "/"
        displayLabel.Text = String.Empty

    End Sub

    Private Sub equalButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles equalButton.Click

        m_secondNumberDecimal = CDec(displayLabel.Text)
        displayLabel.Text = String.Empty
        Select Case m_operator
            Case "+"
                displayLabel.Text = CStr(m_firstNumberDecimal + m_secondNumberDecimal)
            Case "-"
                displayLabel.Text = CStr(m_firstNumberDecimal - m_secondNumberDecimal)
            Case "*"
                displayLabel.Text = CStr(m_firstNumberDecimal * m_secondNumberDecimal)
            Case "/"
                displayLabel.Text = CStr(m_firstNumberDecimal / m_secondNumberDecimal)
        End Select

    End Sub

    Private Sub clearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clearButton.Click

        displayLabel.Text = String.Empty

    End Sub

    Private Sub clearAllButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clearAllButton.Click

        m_firstNumberDecimal = 0
        m_secondNumberDecimal = 0
        m_operator = ""
        displayLabel.Text = String.Empty

    End Sub
End Class