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

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

Столкнулся с такой проблемой Стандартым файлом в формате в формате .scf можно только скрыть-отобразить все окна синтаксис этого файла примерно такой:

                    Листинг программы
                
[Shell]
Command=2
IconFile=%SystemRoot%\system32\SHELL32.dll,34
[Taskbar]
Command=ToggleDesktop

Но эта реализация меня не устраивает так-как сворачиваются и окна и гаджеты (часы календарь и тп) Мне-же нужно было именно свернуть, а не скрыть (наподобии сочетания

Win+M

), а при повторном нажатии на ярлык или скрипт, обратно развернуть ранее свернутые окна. Нашел в интернете такой вот скрипт:

                    Листинг программы
                
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

Как объеденить в одном скрипте, чтобы программа понимала какой режим использовать ? Хотелось-бы изящного решения в три строчки, длинную программу с опросом всех окон я и сам смогу собрать. Делаю компактную сборку Windows XP, со встроенными драйверпаками и поддержкой гаджетов как в семерке но именно на этой проблеме споткнулся, вот уже час ищу в интернете, может у кого-то есть идея ?

Решение задачи: «Свернуть-развернуть все окна одним кликом»

textual
                            Листинг программы 
                        
 
                        
                          
                    
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