Public Class Form1
    Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As _
      Integer) As Integer
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
    bScan As Byte, _
                                    ByVal dwFlags As Integer, ByVal dwExtraInfo _
                                    As Integer)
    Dim tasten() As Byte = {144, 20, 145}          ' Reihenfolge = Num, Caps, 
    ' Scroll
    Dim WithEvents Timer1 As New Timer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        For i As Int32 = 0 To 2                      ' Led aus
            If GetKeyState(tasten(i)) = 1 Then
                keybd_event(tasten(i), 1, 0, 0)
                keybd_event(tasten(i), 1, 2, 0)
            End If
        Next
        Keybd_Event(tasten(2), 1, 0, 0)           ' Start mit Led 2 an 
        Keybd_Event(tasten(2), 1, 2, 0)
        Timer1.Interval = 500                     ' Intervall 0.5 Sek.
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Static led As Int32
        If led = 3 Then led = 0
        Select Case led                          ' Tasten drücken/loslassen
            Case 0
                Keybd_Event(tasten(2), 1, 0, 0)
                Keybd_Event(tasten(2), 1, 2, 0)  ' Led 2 aus
                Keybd_Event(tasten(0), 1, 0, 0)
                Keybd_Event(tasten(0), 1, 2, 0)  ' Led 0 an
            Case 1
                Keybd_Event(tasten(0), 1, 0, 0)
                Keybd_Event(tasten(0), 1, 2, 0)  ' Led 0 aus
                Keybd_Event(tasten(1), 1, 0, 0)
                Keybd_Event(tasten(1), 1, 2, 0)  ' Led 1 an
            Case 2
                Keybd_Event(tasten(1), 1, 0, 0)
                Keybd_Event(tasten(1), 1, 2, 0)  ' Led 1 aus
                Keybd_Event(tasten(2), 1, 0, 0)
                Keybd_Event(tasten(2), 1, 2, 0)  ' Led 2 an
        End Select
        led += 1
    End Sub
End Class