Private Sub Timer1_Timer
'Zeitgesteuert jede Sekunde erneuern
If DateDiff("s", xytime, Time) <> 1 Then
'Fortschritt mit Farbverlauf anzeigen
Progress picTray, lngTrackTime, lngCurrentTime / 1000, vbBlack, vbBlue, 3
picTray.Picture = picTray.Image
  With IC
   .cbSize = Len(IC)
   .hwnd = picTray.hwnd 'Nachrichten-Fenster
   .uID = 2& 'unveränderlich
   .uFlags = NIF_ICON
   .uCallbackMessage = &H200 'Auswertung in MouseMove
   .hIcon = picTray.Picture 'anzuzeigendes Icon
   .szTip = "AmpCon" + vbNullChar
  End With
  Shell_NotifyIcon NIM_MODIFY, IC
xytime = Time
End If

Nsider