How do I code the Equals button on the calculator project

Public Class frmCalculator
    Inherits System.Windows.Forms.Form
    Dim total1 As Single
    Dim total2 As Single
    Dim sub1, sub2 As Decimal
    Dim div1 As Integer
    Dim div2 As String
    Dim multiple1, multiple2 As Single
    Dim sign As String


    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSeven.Click
        'txtDisplay.Text = btnSeven.Text
        txtDisplay.Text = txtDisplay.Text & btnSeven.Text
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEight.Click
        'txtDisplay.Text = btnEight.Text
        txtDisplay.Text = txtDisplay.Text & btnEight.Text
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNine.Click
        'txtDisplay.Text = btnNine.Text
        txtDisplay.Text = txtDisplay.Text & btnNine.Text
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFour.Click
        'txtDisplay.Text = btnFour.Text
        txtDisplay.Text = txtDisplay.Text & btnFour.Text
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFive.Click
        'txtDisplay.Text = btnFive.Text
        txtDisplay.Text = txtDisplay.Text & btnFive.Text
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSix.Click
        'txtDisplay.Text = btnSix.Text
        txtDisplay.Text = txtDisplay.Text & btnSix.Text
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOne.Click
        'txtDisplay.Text = btnOne.Text
        txtDisplay.Text = txtDisplay.Text & btnOne.Text
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTwo.Click
        'Dim MyOtherVariable As String
        'txtDisplay.Text = btnTwo.Text
        txtDisplay.Text = txtDisplay.Text & btnTwo.Text
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThree.Click
        'txtDisplay.Text = btnThree.Text
        txtDisplay.Text = txtDisplay.Text & btnThree.Text
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZero.Click
        'Dim MyVariable As String
        'txtDisplay.Text = btnZero.Text
        txtDisplay.Text = txtDisplay.Text & btnZero.Text
    End Sub

   
    Private Sub cmdSubtract_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMinus.Click
        sub1 = sub1 + Val(txtDisplay.Text)
        txtDisplay.Clear()
    End Sub

    Private Sub cmdEquals_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEquals.Click
        'total2 = total1 + Val(txtDisplay.Text)
        'txtDisplay.Text = total2
        'total1 = 0
        'sub2 = sub1 - Val(txtDisplay.Text)
        'txtDisplay.Text = sub2
        'sub1 = 0
        'div2 = div1 / Val(txtDisplay.Text)
        'txtDisplay.Text = div2
        'div1 = 0
        multiple2 = multiple1 * Val(txtDisplay.Text)
        txtDisplay.Text = multiple2
        multiple1 = 0
    End Sub

    Private Sub cmdClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClear.Click
        txtDisplay.Text = ""
    End Sub

    Private Sub txtDisplay_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDisplay.TextChanged

    End Sub

    Private Sub cmdPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPlus.Click
        total1 = total1 + Val(txtDisplay.Text)
        txtDisplay.Clear()

    End Sub


    Private Sub cmdDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDivide.Click
        div1 = div1 - Val(txtDisplay.Text)
        txtDisplay.Clear()

    End Sub

    Private Sub cmdMultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMultiply.Click
        multiple1 = multiple1 + Val(txtDisplay.Text)
        txtDisplay.Clear()
    End Sub
End Class