Option Explicit
 
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
 
  ' Symbol der Anwendung zum SysTray hinzufügen
  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.Hide
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  ' Symbol aus dem Systray entfernen,
  ' wenn das Programm beended wird
  Shell_NotifyIcon NIM_DELETE, nid
End Sub
 
Private Sub Timer1_Timer()
nid.szTip = Time
End Sub