'Icon in Systray
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias _
  "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As _
  Long
 
Private 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 Const NIF_ICON = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_TIP = &H4
Private Const NIM_ADD = &H0
Private Const NIM_DELETE = &H2
Private Const NIM_MODIFY = &H1
 
Dim IC As NOTIFYICONDATA
 
Private Sub ShowIconInTray()
    With IC
        .cbSize = Len(IC)
        .hWnd = Me.hWnd
        .hIcon = Me.Icon
        .uID = 2&
        .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
        .uCallbackMessage = &H200
        .szTip = "Text des Tooltips" + vbNullChar
    End With
 
    Shell_NotifyIcon NIM_ADD, IC
End Sub
 
Private Sub tmrCount_Timer()
    time = time - 1
 
    [...]
 
    IC.szTip = "Restzeit: " + time + vbNullChar
    Shell_NotifyIcon NIM_MODIFY, IC
 
    [...]
 
End Sub

---

My software never has bugs, it just develops random features ^^