Shell := ComObjCreate("Shell.Application")
MsgBox Cascade Windows
Shell.CascadeWindows()
Sleep 2000
MsgBox Tile Windows Horizontally
Shell.TileHorizontally()
Sleep 2000
MsgBox Tile Windows Vertically
Shell.TileVertically()
Sleep 2000
MsgBox 最小化全部窗口
Shell.MinimizeAll()
Sleep 2000
MsgBox 撤销最小化全部窗口
Shell.UndoMinimizeALL()
/*
Shell 属性及方法
Shell.Application
Shell.Parent
Shell.CascadeWindows()
Shell.TileHorizontally()
Shell.TileVertically()
Shell.ControlPanelItem(sDir) /* 比如：sysdm.cpl */
Shell.EjectPC()
Shell.Explore(vDir)
Shell.Open(vDir)
Shell.FileRun()
Shell.FindComputer()
Shell.FindFiles()
Shell.Help()
Shell.MinimizeAll()
Shell.UndoMinimizeALL()
Shell.RefreshMenu()
Shell.SetTime()
Shell.TrayProperties()
Shell.ShutdownWindows()
Shell.Suspend()
oWindows = Shell.Windows() 返回ShellWindows对象
fFolder = Shell.NameSpace(vDir) /返回所打开的vDir的Folder对象
oFolder = Shell.BrowseForFolder(Hwnd, sTitle, iOptions [, vRootFolder]) 选择文件夹对话框
*/
