Private Sub Form_Resize()
    If Me.WindowState = vbMinimized 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
        Me.Hide
    End If
End Sub