[Окна, Диалоги] Ошибка при закрытии окон

Global $aToggleWnd[100]

Func _ToggleAllWnd()
Local $sTitle, $aList,$State, $iCounter=0
$aList = WinList()
For $i = 1 to $aList[0][0]
  If $aList[$i][0] <> ""  Then
	$sTitle = $aList[$i][0]
	If $sTitle <>"Моя прога" Then
	 $State = WinGetState ($sTitle)
	    If BitAnd($State,2)=True  Then
		     WinSetState ( $sTitle, "", @SW_MINIMIZE )
		     $iCounter+=1
			 $aToggleWnd[$iCounter]=$sTitle 
			EndIf
        EndIf
	EndIf
Next
EndFunc

$oShell = ObjCreate("shell.application")
;~ $oShell.MinimizeAll
$oShell.ToggleDesktop

#Include <Constants.au3>
#Include <WindowsConstants.au3>
#Include <WinAPI.au3>

Opt("WinWaitDelay", 0)

Global $aToggleWnd[101] = [0]

_ToggleAllWnd()

Func _ToggleAllWnd()

	Local $sStyle = BitOR($WS_VISIBLE, $WS_MINIMIZEBOX)
	Local $aList = WinList()

	For $i = 1 To $aList[0][0]
		If ($aList[$i][0] <> "Моя прога") And (BitAND(_WinAPI_GetWindowLong($aList[$i][1], $GWL_STYLE), $sStyle) = $sStyle) Then
			WinSetState($aList[$i][1], "", @SW_MINIMIZE)
			$aToggleWnd[0] += 1
			If $aToggleWnd[0] > UBound($aToggleWnd) - 1 Then
				ReDim $aToggleWnd[$aToggleWnd[0] + 100]
			EndIf
			$aToggleWnd[$aToggleWnd[0]] = $aList[$i][1]
		EndIf
	Next
EndFunc   ;==>_ToggleAllWnd