Function SelectBox(sTitle, default, aOptions) Dim oIE, s, item set oIE = CreateObject("InternetExplorer.Application") With oIE .FullScreen = True .ToolBar = False : .RegisterAsDropTarget = False .StatusBar = False : .Navigate("about:blank") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop .width=200 : .height=150 With .document with .parentWindow.screen oIE.left = (.availWidth - oIE.width ) \ 2 oIE.top = (.availheight - oIE.height) \ 2 End With ' ParentWindow s = "" & sTitle _ & "