Dim $sScriptName=StringLeft(@ScriptName,StringInStr(@ScriptName,'.')-1)
Dim $sWinList=WinList()
Dim $sTitle
;MAKE ALL WINDOWS THIS SIZE
Dim $min=1
Dim $max=$sWinList[0][0]
Dim $response
Dim $winstate
For $i=$min To $max
	$sTitle=$sWinList[$i][0]
	;determine state if visible and not minimized or maximized ... resize
	If $sTitle<>'' And _
		StringLeft($sTitle,10)<>'Next break' And _
		StringLeft($sTitle,15)<>'Program Manager' And _
		StringLeft($sTitle,5)<>'EnvSW' Then
		$winstate=WinGetState($sTitle)
		If BitAND($winstate,2) Then ;And Not(BitAND($winstate,16)) And Not(BitAND($winstate,13)) Then
			$response=-1
			;$response=msgbox(4096+3+32,$sScriptName,'Resize['&$sTitle&']',7)
			If $response=2 Then Exit
			If $response=-1 or $response=6 Then
				WinMove($sTitle,'',135,12,1128,1005)
			EndIf
		EndIf
	EndIf
Next