' Option Explicit
'
'------------------------------------------------------------------------------
'
'  ショートカットを作れば便利かもしれませんよ〜

'  ウインドを左右に並べたり最小化したりする方法
'  同時には出来ないので、コメントを外して必要なところだけ有効行にして下さい。
'  一番利用しそうな、左右に並べて表示を有効行にしておきます。
'
'------------------------------------------------------------------------------
    Dim objWin

    Set objWin  = WScript.CreateObject("Shell.Application")

    objWin.TileVertically       ' ウィンドウを左右に並べて表示
'    objWin.TileHorizontally    ' ウィンドウを上下に並べて表示
'    objWin.MinimizeAll         ' 全ウィンドウを最小化
'    objWin.CascadeWindows      ' ウィンドウを重ねて表示
'    objWin.UndoMinimizeALL     ' ウィンドウ操作を元にもどす

    Set objWin  = Nothing