Свернуть-развернуть все окна одним кликом

rem Свернуть все окна
dim objShell
set objShell = CreateObject("shell.application")
objShell.MinimizeAll
set objShell = nothing

rem Развернуть все окна
dim objShell
set objShell = CreateObject("shell.application")
objShell.UndoMinimizeAll
set objShell = nothing

Set objshell = CreateObject("shell.application")
    Set fso = CreateObject("scripting.FileSystemObject")
    sFlagFile = fso.GetSpecialFolder(TemporaryFolder) & "\Flag"
    If fso.FileExists(sFlagFile) Then
        objshell.UndoMinimizeALL
        fso.DeleteFile sFlagFile
    Else
        objshell.MinimizeAll
        fso.CreateTextFile sFlagFile
    End If
    Set fso = Nothing
    Set objshell = Nothing

Option Explicit
Private Declare Function DefWindowProcW Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SysAllocStringLen Lib "oleaut32" (ByVal olestr As Long, ByVal BLen As Long) As Long
Private Declare Sub PutMem4 Lib "msvbvm60" (ByVal Ptr As Long, ByVal Value As Long)
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function IsWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (arr() As Any) As Long
Private Declare Function IsIconic Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ShowWindowAsync Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
 
Private Const GW_HWNDFIRST = 0
Private Const GW_HWNDNEXT = 2
Private Const WM_GETTEXT = &HD
Private Const WM_GETTEXTLENGTH = &HE
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_APPWINDOW = &H40000 ' Окно появляется на панели задач, если оно видимо
Private Const WS_EX_TOOLWINDOW = &H80 ' Окно с маленьким заголовком
Private Const GW_OWNER = 4
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_FORCEMINIMIZE = 11
 
' Считывает заголовок окна
Private Function GetWindowTitle(ByVal hWnd As Long) As String
    Dim lngLen As Long
    
    lngLen = DefWindowProcW(hWnd, WM_GETTEXTLENGTH, 0, ByVal 0)
    
    If lngLen > 0 Then
        PutMem4 VarPtr(GetWindowTitle), SysAllocStringLen(0, lngLen) ' Мгновенно выделить память для строки
        DefWindowProcW hWnd, WM_GETTEXT, lngLen + 1, StrPtr(GetWindowTitle)
    End If
End Function
 
' Считывание всех окон (мой код)
Private Sub MyEnumWindows(ByVal hWnd As Long, WindowHandle() As Long, WindowName() As String, Optional HiddenWindows As Boolean = True, Optional OnlyWindowsInTaskBar As Boolean, Optional NonTitledWindows As Boolean, Optional NoMyWindow As Boolean)
    Dim h As Long
    Dim cnt As Integer
    Dim WindowTitle As String
    
    h = GetWindow(hWnd, GW_HWNDFIRST)
    
    Do While h <> 0
        WindowTitle = GetWindowTitle(h)
        
        If NonTitledWindows = True Or NonTitledWindows = False And WindowTitle <> vbNullString Then
            If HiddenWindows = True Or HiddenWindows = False And IsWindowVisible(h) > 0 Then
                If OnlyWindowsInTaskBar = False Or OnlyWindowsInTaskBar = True And IsShowInTaskBar(h) = True Then
                    If NoMyWindow = False Or NoMyWindow = True And hWnd <> h Then
                        ReDim Preserve WindowHandle(cnt)
                        ReDim Preserve WindowName(cnt)
                        
                        WindowHandle(cnt) = h
                        WindowName(cnt) = WindowTitle
                        
                        cnt = cnt + 1
                    End If
                End If
            End If
        End If
        
        h = GetWindow(h, GW_HWNDNEXT)
    Loop
End Sub
 
' Показывается ли окно в TaskBar
' На самом деле очень сложно определить есть ли окно на панеле задач, поэтому определение гарантируется лишь на 90%
Private Function IsShowInTaskBar(Optional ByVal hWnd As Long) As Boolean
    Dim frmStyle As Long
    
    If hWnd = 0 Then hWnd = GetForegroundWindow
    
    frmStyle = GetWindowLong(hWnd, GWL_EXSTYLE) ' Получаем расширенный стиль окна
    
    If frmStyle > 0 Then
        If IsWindow(hWnd) > 0 Then ' Если такое окно существует
            If IsWindowVisible(hWnd) > 0 Then ' Если окно видимо на экране
                If GetParent(hWnd) = 0 Then
                    If (frmStyle And WS_EX_APPWINDOW) <> 0 Then ' Если бит WS_EX_APPWINDOW установлен, тогда...
                        IsShowInTaskBar = True ' В большинстве случаев это гарантирует, что окно есть на панеле задач
                    Else ' Если WS_EX_APPWINDOW нету, то тогда
                        If (frmStyle And WS_EX_TOOLWINDOW) <> 0 Then ' Если бит WS_EX_TOOLWINDOW установлен, тогда...
                            IsShowInTaskBar = False ' В большинстве случаев это гарантирует, что окна нет на панеле задач
                        Else ' Если нет и WS_EX_APPWINDOW и WS_EX_TOOLWINDOW
                            If GetWindow(hWnd, GW_OWNER) = 0 Then ' Если окно не принадлежит владельцу
                                IsShowInTaskBar = True
                            Else
                                IsShowInTaskBar = False
                            End If
                        End If
                    End If
                Else ' Если GetParent не ноль, то почти на 100% можно быть уверенным, что кнопки нет в таскбаре
                    IsShowInTaskBar = False
                End If
            Else ' Если окно скрыто (не видимо) то в любом случае кнопки на панеле задач не будет!
                IsShowInTaskBar = False
            End If
        Else ' Окно не существует
            IsShowInTaskBar = False
        End If
    End If
End Function
 
' Свернуть все окна
Public Function MinimizeAll(ByVal hWnd As Long, Optional NoMyWindowMinimize As Boolean, Optional ForceMinimize As Boolean = True) As Long
    Dim i As Long
    Dim arrCaptions() As String
    Dim arrHandles() As Long
    Dim cnt As Long
    
    MyEnumWindows hWnd, arrHandles, arrCaptions, False, True, False, NoMyWindowMinimize
    
    For i = 0 To UBound(arrHandles)
        If IsIconic(arrHandles(i)) = 0 Then
            If ShowWindowAsync(arrHandles(i), IIf(ForceMinimize, SW_FORCEMINIMIZE, SW_SHOWMINIMIZED)) > 0 Then
                cnt = cnt + 1
            End If
        End If
    Next
    
    MinimizeAll = cnt
End Function
 
Private Sub Command1_Click()
    Dim hwnds() As Long
    Dim names() As String
    Dim i As Long
    
    MyEnumWindows hWnd, hwnds, names, False, True
    
    If SafeArrayGetDim(hwnds) > 0 Then
        If List1.ListCount > 0 Then List1.Clear
        
        For i = 0 To UBound(names)
            List1.AddItem names(i)
        Next
        
        Me.Caption = "IsShowInTaskBar (" & List1.ListCount & ")"
    End If
End Sub
 
Private Sub Command2_Click()
    Dim mw As Long
    
    mw = MinimizeAll(hWnd) ' Свернуть все окна
    
    Label2.Visible = True
    Label2.Caption = "Было свёрнуто окон: " & mw
End Sub
 
Private Sub Command3_Click()
    Dim mw As Long
    
    mw = MinimizeAll(hWnd, True) ' Свернуть все окна, кроме моего
    
    Label2.Visible = True
    Label2.Caption = "Было свёрнуто окон: " & mw
End Sub