Option Explicit
 
Private Const VK_LEFT As Long = &H25
Private Const VK_RIGHT As Long = &H27
Private Const VK_UP As Long = &H26
Private Const VK_DOWN As Long = &H28
 
Private Declare Function GetAsyncKeyState Lib "user32" ( _
   ByVal vKey As Long) As Integer
 
Private Declare Function GetActiveWindow Lib "user32" () As Long
 
 
Private Sub Form_Load()
  On Error Resume Next
 
  ' zum Programmstart, alle event. gedrückten Cursor-Tasten zurücksetzen
  ClearKeyState
End Sub
 
' hebt den Key-Status auf
Private Sub ClearKeyState()
 
  GetAsyncKeyState VK_LEFT
  GetAsyncKeyState VK_RIGHT
  GetAsyncKeyState VK_UP
  GetAsyncKeyState VK_DOWN
 
  Label1.Caption = ""
End Sub
 
Private Sub Timer1_Timer()
 
  On Error Resume Next
 
  Dim E As Long
 
  ' wenn das Fenster nicht aktiv ist, dann
  ' nichts machen
  If GetActiveWindow <> Me.Hwnd Then
    Label1.Caption = ""
  Else
    If GetAsyncKeyState(VK_LEFT) <> 0 Then
      Label1.Caption = "Links"
    ElseIf GetAsyncKeyState(VK_RIGHT) <> 0 Then
      Label1.Caption = "Rechts"
    ElseIf GetAsyncKeyState(VK_UP) <> 0 Then
      Label1.Caption = "Oben"
    ElseIf GetAsyncKeyState(VK_DOWN) <> 0 Then
      Label1.Caption = "Unten"
    Else
      Label1.Caption = ""
    End If
  End If
 
End Sub

Viel Spass,
R@lf