Here's how I create the window:
Code: Select all
Sub OpenInPopup(Node)
Dim Form, BrowserControl, Command
Command = Node.CustomData
Set Form = SDB.UI.NewForm
Form.Common.SetRect 100, 100, 900, 700
Form.Caption = Command
Set BrowserControl = SDB.UI.NewActiveX(Form, "Shell.Explorer")
BrowserControl.Common.Align = 5 ' Fill all client rectangle
BrowserControl.Interf.Navigate Command ' Go to the specified URL
Form.Common.Visible = True
SDB.Objects("Pandora Window") = Form ' Make the window hang about
Script.RegisterEvent Form, "OnShutdown", "FormClose"
End Sub
Code: Select all
Sub FormClose
SDB.MessageBox "Got OnShutdown", mtInformation, Array(mbOk)
End Sub
Code: Select all
SDB.Objects("Pandora Window") = Nothing
Thanks in advance for any help.