Private Sub Form_Resize()
    If Me.WindowState = vbMinimized Then
        Me.Visible = False
        [u]Me.WindowState = vbNormal
 
        ' 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
    Else
        Me.Visible = True
    End If
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...