Option Explicit
 
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias _
  "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As _
  Boolean
 
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const HWND_TOPMOST = -1
 
Public nid As NOTIFYICONDATA
 
Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type

Private Sub Command2_Click()
isintray = True
WindowState = vbMinimized

'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
Me.PopupMenu mnuSystray
End Select
End Sub
 
'Dies läßt die Form in die Trayleiste verschwinden/minimieren
Private Sub Form_Resize()
If WindowState = vbMinimized Then
Me.Hide
Me.Refresh
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
Else
Shell_NotifyIcon NIM_DELETE, nid
End If
End Sub
 
'Dies soll das TrayIcon verschwinden lassen wenn das Pro beendet wird
Private Sub Form_Unload(Cancel As Integer)
If isintray = True Then
    WindowState = vbNormal
    Me.Show
    End
   Else
End
End If
 
End Sub
'Hiermit wird das Programm aus dem Menü aus der Trayleiste beendet
Private Sub mnuexit_Click()
Unload Me
End Sub
'Dies holt die Form zurück
Private Sub mnuRestore_Click()
WindowState = vbNormal
Me.Show
isintray = False
End Sub
'Hiermit wird die Form minimiert
Private Sub Command2_Click()
isintray = True
WindowState = vbMinimized
End Sub