With IC
   .cbSize = Len(IC)
   .hwnd = picHWNDtemp.hwnd 'Nachrichten-Fenster
   .uID = 2& 'unveränderlich
   .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
   .uCallbackMessage = &H200 'Auswertung in MouseMove
   .hIcon = Me.Icon 'anzuzeigendes Icon
   .szTip = "Virtual Death 1.0" + vbNullChar
'Platz für Eigenschaften des NID
 End With
 
 Shell_NotifyIcon NIM_ADD, IC
 
 NewBalloon "Virtual Death 1.0", "Virtual Death is running in- Tray. You can" & _
   "type ""hide"" if you want to hide the form, but keep VD running.", _
   "VirtualDeath 1.0", NIF_INFOICON, 3, frmVD.Icon

Public Function NewBalloon(ByVal Title As String, _
  ByVal Text As String, _
  ByVal sToolTip As String, _
  ByVal Icon As Long, _
  Optional ByVal TimeOut As Long, _
  Optional TrayIcon As Variant)
 
  Shell_NotifyIcon NIM_DELETE, IC
 
  With IC
    .cbSize = Len(IC)
    .uID = vbNull
    .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP
    .uCallbackMessage = WM_LBUTTONDBLCLK
    If Not IsMissing(TrayIcon) Then .hIcon = TrayIcon
    .szTip = sToolTip & vbNullChar
    .dwState = 0
    .dwStateMask = 0
    .szInfo = Text & Chr(0)
    .szInfoTitle = Title & Chr(0)
    .dwInfoFlags = Icon
    .uTimeout = TimeOut
  End With
  Shell_NotifyIcon NIM_ADD, IC
 
End Function