If m.Msg = WM_HOTKEY Then
            Select Case m.WParam
                Case 0
                Case 1
                    SendKeys.Send("T" & TextBox1.Text & "{Enter}")
                Case 2
                    SendKeys.Send("T" & TextBox2.Text & "{Enter}")
                Case 3
                    SendKeys.Send("T" & TextBox3.Text & "{Enter}")
                Case 4
                    SendKeys.Send("T" & TextBox4.Text & "{Enter}")
                Case 5
                    SendKeys.Send("T" & TextBox5.Text & "{Enter}")
                Case 6
                    SendKeys.Send("T" & TextBox6.Text & "{Enter}")
                Case 7
                    SendKeys.Send("T" & TextBox7.Text & "{Enter}")
                Case 8
                    SendKeys.Send("T" & TextBox8.Text & "{Enter}")
                Case 9
                    SendKeys.Send("T" & TextBox9.Text & "{Enter}")
                Case 10
                    SendKeys.Send("T" & TextBox10.Text & "{Enter}")
                Case 11
                    SendKeys.Send("T" & TextBox11.Text


UND

 Private Sub CheckBox10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F21.CheckedChanged
        If F21.Checked = True Then
            RegisterHotKey(Me.Handle, Key_NONE, 10, Keys.F2 + Keys.NumPad1)
        Else
            UnregisterHotKey(Me.Handle, 10)
        End If
    End Sub