Public Function Create_Systray(frm As Form, sTip As String, sFettschrift As _
  String, _
                               sText As String, NIIF_Typ)
 
frm.ScaleMode = vbTwips
With nf_IconData
     .cbSize = Len(nf_IconData)
     .hwnd = frm.hwnd
     .uID = vbNull
     .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP
     .uCallbackMessage = WM_MOUSEMOVE
     .hIcon = frm.Icon
     .szTip = sTip & vbNullChar 'QuickInfo des Symbols"
     ' & vbNullChar
     .dwState = 0
     .dwStateMask = 0
     .szInfo = sText & Chr(0)  'Text des BallonTips.
     ' Mehrzeilige Tips sind möglich (Zeilenwechsel: vbCrLf). Am Ende muss
     ' ein Chr(0) angehängt werden.
     .szInfoTitle = sFettschrift & Chr(0) 'Fettformatierte
     ' Überschrift des Balloon-Tips. & Chr(0)
     If NIIF_Typ > "" Then
        .dwInfoFlags = NIIF_Typ  'Benutzes Icon für den Balloon
     Else
        .dwInfoFlags = NIIF_INFO  'Benutzes Icon für den Balloon
     End If
     ' (Info, Warnung oder Fehler)(NIIF_NONE, NIIF_INFO, NIIF_WARNING,
     ' NIIF_ERROR)
 
     .uTimeout = 1000 'Zeit nachdem der Balloon spät. verschwinden
     ' soll (millisek.)
End With
Shell_NotifyIcon NIM_MODIFY, nf_IconData
End Function

Create_Systray frmMain, "Aktualisierung erfolgreich...", _
                              "Aktualisierung erfolgreich", "Nächste" & _
                              "Aktualisierung Cstr(glbNextStart), NIIF_INFO