‹HTML›
‹HEAD›‹TITLE›Opening a new window‹/TITLE›‹/HEAD›
‹BODY›
‹FORM NAME="frmWin1" ACTION="" METHOD="POST"›
Manage a new Internet Explorer window: 
‹INPUT TYPE="button" NAME="cmdOpenWin" VALUE="Open New Window"›
‹INPUT TYPE="button" NAME="cmdCloseWin" VALUE="Close Window"›
‹/FORM›

‹SCRIPT LANGUAGE="VBSCRIPT"›

Public oWin

Sub cmdOpenWin_OnClick()
   Set oWin = Window.Open("http://vb.oreilly.com", "NewWin")
   if oWin Is Nothing Then
      MsgBox "Invalid object reference"
   Else
      MsgBox "oWin is a valid Window object"
   End If
End Sub

Sub cmdCloseWin_OnClick()
   if oWin Is Nothing Then
      MsgBox "Window not instantiated!"
   Else
      oWin.Close
   End If
End Sub

‹/SCRIPT›
‹/BODY›
‹/HTML›