تشغيل ازرار الالة الحاسبة من لوحة المفاتيح

كود :
Public Class Form1

    Dim num1, num2 As Double

    Dim ob As String



    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

        If IsNumeric(e.KeyChar) Then

            TextBox1.Text &= e.KeyChar

        Else

            Select Case e.KeyChar

                Case "+"

                    checktxt("+")

                Case ("-")

                    checktxt("-")

                Case ("*")

                    checktxt("*")

                Case "/"

                    checktxt("/")

                Case ("=")

                    GiveAns()

                Case ChrW(Keys.Enter)

                    GiveAns()

            End Select

        End If

    End Sub

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

        Me.KeyPreview = True

        TextBox1.ReadOnly = True

        For Each bt As Control In Me.Controls

            If bt.Name.Contains("Button") Then

                AddHandler bt.Click, AddressOf BT_click

            End If

        Next

    End Sub

    Sub BT_click(ByVal sender As Object, ByVal e As EventArgs)

        Select Case sender.Text

            Case "+"

                checktxt("+")

            Case "-"

                checktxt("-")

            Case "*"

                checktxt("*")

            Case "/"

                checktxt("/")

            Case "="

                GiveAns()

            Case Else

                TextBox1.Text &= sender.Text

        End Select

    End Sub

    Sub checktxt(ByVal t As String)

        If Not TextBox1.Text = "" Then

            ob = t

            num1 = TextBox1.Text

            TextBox1.Text = ""

        End If

    End Sub

    Sub GiveAns()

        Try

            num2 = TextBox1.Text

            Select Case ob

                Case "+"

                    TextBox1.Text = num1 + num2

                Case "-"

                    TextBox1.Text = num1 - num2

                Case "*"

                    TextBox1.Text = num1 * num2

                Case "/"

                    TextBox1.Text = num1 / num2

            End Select

        Catch ex As Exception



        End Try

    End Sub

End Class