Kleines Problem mit dem Keybinder

Hey,

Ich bin grad an meinem 1 Keybinder, und ich hab ein Problem

ich Wollte einfach nur, Wenn die 1 Checkbox, angeklickt wurde
das die Keys aus der Textbox1 gesendet werden.

Wo ist hier ein Fehler �_�

Code:

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.NumPad1)
        Else
            UnregisterHotKey(Me.Handle, 0)

        End If
    End Sub

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = WM_HOTKEY Then
            Select Case m.WParam
                Case 0
                Case 1
                    SendKeys.Send(TextBox1.Text)
            End Select
        End If

        MyBase.WndProc(m)
    End Sub
End Class