Close All Open Windows

[Hack]

I have to give you this in two parts, because there is a 10,000 character limit on individual posts (I know because I've exceeded it before). First: Start a new project, and paste this into the declarations section of Form1

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
 
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 NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
 
Private SysTray As NOTIFYICONDATA
 
Private Sub StartInSysTray()
    SysTray.cbSize = Len(SysTray)
    SysTray.hwnd = Picture1.hwnd
    SysTray.uId = 1&
    SysTray.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    SysTray.ucallbackMessage = WM_MOUSEMOVE
    SysTray.hIcon = Me.Icon
    SysTray.szTip = "&R&e&s&t&a&r&t" & Chr$(0)
    Shell_NotifyIcon NIM_ADD, SysTray
    Me.Hide
    App.TaskVisible = False
End Sub
 
Private Sub Form_Load()
StartInSysTray
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    SysTray.cbSize = Len(SysTray)
    SysTray.hwnd = Picture1.hwnd
    SysTray.uId = 1&
    Shell_NotifyIcon NIM_DELETE, SysTray
End Sub
 
'Add A Picture Control To The Form.   Set its visible property to False
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Static rec As Boolean, msg As Long
    Dim RetVal As String
    Dim returnstring
    Dim retvalue
    msg = X / Screen.TwipsPerPixelX
    If rec = False Then
        rec = True
    Select Case msg
    'here are the various mouse events that you can use once
    'you application is in the system tray.   select the event of your
    'choice and put CloseExceptUs there.   (CloseExceptUs is a
    'routine that I will post momentarily.   It also needs to go on
    'this form.)
    Case WM_LBUTTONDOWN
 
    Case WM_LBUTTONDBLCLK
 
    Case WM_LBUTTONUP
 
    Case WM_RBUTTONUP
 
    End Select
        rec = False
    End If
 
End Sub