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
 
  Static hWnd As Long
  Static hWnw2 As Long
 
  lMsg = X / Screen.TwipsPerPixelX
  Select Case lMsg
     Case WM_MOUSEMOVE
       ' Maus wird auf das TrayIcon bewegt, 
       ' jetzt aktuelle Anwendungabfragen
       hWnd = GetForegroundWindows()
       hWnd2 = GetTopWindow(hWnd)
 
     Case WM_LBUTTONDOWN
...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de