Private Sub Form_MouseMove(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  ' Das MouseMove Ereignis wird ausgelöst, wenn die
  ' Maus über das Symbol im Systray geführt wird
 
  Dim lMsg As Long
  Dim sFilter As String
 
  lMsg = X / Screen.TwipsPerPixelX
  Select Case lMsg
     Case WM_LBUTTONDOWN
      ' linke Maustaste wird gedrückt
 
     Case WM_LBUTTONUP
      ' linke Maustaste wird losgelassen
 
     Case WM_LBUTTONDBLCLK
      ' linke Maustaste - Doppelklick
 
     Case WM_RBUTTONDOWN
      ' rechte Maustaste wird gedrückt
 
     Case WM_RBUTTONUP
       ' rechte Maustaste wird losgelassen
       ' (jetzt z.B. Popup-Menü öffnen)
       PopupMenu MenuPopUp
 
     Case WM_RBUTTONDBLCLK
      ' rechte Maustaste - Doppeklick
 
  End Select
End Sub