Сворачивание сторонних программ - VB

Формулировка задачи:

Дело вот в чем. Есть прога, которая через некоторое время должна скрыть все программы и на рабочем столе появиться окно, типа 'ваше время вышло'. Делал мое окно поверх всех... до фени, к примеру если запущена игрушка, то моего окна вообще не видно Вот этот код:

Private Declare Function SetWindowPos Lib 'user32' (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOZORDER = &H4
Const SWP_NOREDRAW = &H8
Const SWP_NOACTIVATE = &H10
Const SWP_FRAMECHANGED = &H20      
Const SWP_SHOWWINDOW = &H40
Const SWP_HIDEWINDOW = &H80
Const SWP_NOCOPYBITS = &H100
Const SWP_NOOWNERZORDER = &H200    
Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Const HWND_TOP = 0
Const HWND_BOTTOM = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
 
Private Sub Form_Load()
Dim I
    I = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub

Подскажите пожалуйста, возможно ли свернуть все сторонние программы, чтобы мое окно смогло свободно выскочить на рабочий стол?

Решение задачи: «Сворачивание сторонних программ»

textual
                            Листинг программы 
                        
                            Public Declare Function BroadcastSystemMessage Lib 'user32' Alias 'BroadcastSystemMessage' (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long