Private Sub Form_Resize()
    With nid
    .cbSize = Len(nid)
    .hWnd = Me.hWnd
    .uId = vbNull
    .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    .uCallBackMessage = WM_MOUSEMOVE
    .hIcon = Me.Icon
    .szTip = Me.Caption & vbNullChar
  End With
  Shell_NotifyIcon NIM_ADD, nid
 
  ' Anwendung jetzt "verstecken"
  Me.HideEnd Sub

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_LBUTTONDBLCLK
      ' linke Maustaste - Doppelklick
      Me.Show
 
  End Select
End Sub