Imports System.Threading
 
    Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As _
      Integer) As Short
 
    Private Const VK_CONTROL = &H11  ' STRG Taste
    Private Const VK_1 = &H31  ' Taste 1
    Private Const VKDOWN = &H8000 ' Gedrückte Taste
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
 
        Dim Hotkey_STRG As Integer = GetAsyncKeyState(VK_CONTROL)
        Dim Hotkey_1 As Integer = GetAsyncKeyState(VK_1)
 
        If CBool(Hotkey_STRG And VKDOWN And Hotkey_1) Then
            SendKeys.Send("t/login test")
            Thread.Sleep(200)
        End If