|
ArangeWindows
Arange the programs on your desktop the way it fits you.
In just a few click!
Title = "Window aranger - by TJ"
Dim Shell
'create WSH Shell object
Set Shell = WScript.CreateObject ("Shell.Application")
If (MsgBox("Minimize all Windows?", _
vbYesNo + vbQuestion, Title) = vbYes) Then
Shell.MinimizeAll ' MinimizeAll-method
Msgbox "Undo?"
Shell.UndoMinimizeAll ' restore windows first
End if
If (MsgBox("Tile Windows Vertically?", _
vbYesNo + vbQuestion, Title) = vbYes) Then
Shell.TileVertically ' vertically
Msgbox "Undo?"
Shell.UndoMinimizeAll ' restore windows first
End if
If (MsgBox("Tile Windows Horizontally?", _
vbYesNo + vbQuestion, Title) = vbYes) Then
Shell.TileHorizontally
Msgbox "Undo?"
Shell.UndoMinimizeAll ' restore windows first
End if
If (MsgBox("Cascade all Windows?", _
vbYesNo + vbQuestion, Title) = vbYes) Then
Shell.CascadeWindows
Msgbox "Undo?"
Shell.UndoMinimizeAll ' restore windows first
End if
|
