CurrentTime = Timer()
    If (preCurrentTime > CurrentTime - 10) And (preCurrentTime < CurrentTime _
      + 10) Then
        If CurrentTime < intIntervall And sngStartTime1 > intIntervall Then
            Laufzeit1 = 86400 + CurrentTime - sngStartTime1
        Else
            Laufzeit1 = CurrentTime - sngStartTime1
        End If
 
        If Laufzeit1 >= 10 Then
            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 If
        preCurrentTime = CurrentTime