' zunächst die benötigten API-Deklarationen
Private Declare Function GetAsyncKeyState Lib _
  "user32.dll" (ByVal nVirtKey As Long) As Integer
Private Const KeyPressed As Integer = -32767
 
Private Sub Form_Load()
  ' Der Timer sollte möglichst schnell
  'eingestellt werden
  Timer2.Interval = 20
  Timer2.Enabled = True
  Timer1.Interval = 20
  Timer1.Enabled = True
  Me.Hide
  App.TaskVisible = False
End Sub
 
Private Sub Timer2_Timer()
  Dim HotKey As Long
 
  ' A= Form anzeigen
  HotKey = vbKeyA
 
  If GetAsyncKeyState(HotKey) = KeyPressed Then
    Me.Show
    App.TaskVisible = True
  End If
End Sub
 
 
Private Sub Timer1_Timer()
  Dim HotKey As Long
 
  ' B= Form anzeigen
  HotKey = vbKeyB
 
  If GetAsyncKeyState(HotKey) = KeyPressed Then
    Me.Hide
    App.TaskVisible = True
  End If
End Sub