'------------------------------------------------
Sub SizeToScreen()
   Window.moveTo 0, 0
   Window.resizeTo Window.Screen.availWidth, Window.Screen.availHeight
End Sub
'------------------------------------------------
Sub SizeAndCenter(W, H)
   Window.resizeTo W, H
   Window.moveTo (Window.Screen.availWidth-W)/2, (Window.Screen.availHeight-H)/2
End Sub
'------------------------------------------------
Function NewWindow(Url, WindowName)
   Dim TheWindow
   Set TheWindow = Window.Open(Url, WindowName, "width=100,height=100,left=0,top=0,status=no,toolbar=no,menubar=no,location=no,resizable=yes,scrollbars=yes")
   Set NewWindow = TheWindow
End Function
'------------------------------------------------