If anyone wants to do this here is VB6 Code that will do so.
code:
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_HIDE = 0
Public Const SW_NORMAL = 1
Public NumOfFloatingWindows As Long
Public Floating_hWnd() As Long
Public Function CallBack(ByVal hwnd As Long, ByVal lpData As Long) As Long
Dim lResult As Long
Dim sWndName As String
Dim sClassName As String
Dim nWindowHandle As String
CallBack = 1
sClassName = Space(260)
sWndName = Space(260)
lResult = GetClassName(hwnd, sClassName, 260)
sClassName = Left$(sClassName, lResult)
lResult = GetWindowText(hwnd, sWndName, 260)
sWndName = Left$(sWndName, lResult)
If LCase$(sClassName) = "msgplusfloatingwindow" Then
ReDim Preserve Floating_hWnd(NumOfFloatingWindows)
Floating_hWnd(NumOfFloatingWindows) = FindWindow("msgplusfloatingwindow", sWndName)
ShowWindow Floating_hWnd(NumOfFloatingWindows), SW_HIDE
NumOfFloatingWindows = NumOfFloatingWindows + 1
End If
End Function
Public Function HideFloatingWindows() As Boolean
Dim hwnd As Long
EnumWindows AddressOf CallBack, hwnd
End Function
Public Function ShowFloatingWindows()
For j = NumOfFloatingWindows - 1 To 0 Step -1
DoEvents
ShowWindow Floating_hWnd(j), SW_NORMAL
Next
End Function
to hide the windows
code:
HideFloatingWindows
and to show them
code:
ShowFloatingWindows
/ 
