Option Explicit
Sub Main
Dim varFocusedWindow As Variant
Dim x As Integer
For x = 1 To 10
varFocusedWindow = Action2.GetFocusedWindowName
If varFocusedWindow = "" Then
Exit For
Else
Action2.WindowMinimize(varFocusedWindow, 0)
End If
Next x
End Sub