Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As _
  Long) As Long
 
'Dies lässt das Menü "hochpoppen" wenn die Form in der Trayleiste versteck ist
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y _
  As Single)
 Dim Sys As Long
 
 Sys = x / Screen.TwipsPerPixelX
 Select Case Sys
   Case WM_RBUTTONUP
      SetForegroundWindow Me.hwnd
      Me.PopupMenu mnuSystray
 End Select
End Sub