[VB08] Timer Frage

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        Dim m As Message
        'die messages auswerten
        If m.Msg = WM_HOTKEY Then
            'hier wird entschieden welcher hotkey es war
            'einfach die übergebene id auswerten
            Select Case m.WParam
                Case 1
                    SendKeys.SendWait(TextBox6.Text)
                    System.Threading.Thread.Sleep(200)
                    SendKeys.Send(TextBox1.Text)
                    SendKeys.Send(Label13.Text)
 
 
            End Select
        End If
        MyBase.WndProc(m)
    End Sub