Dim w 
set w = CreateObject("InternetExplorer.Application")
w.left = 100
w.top = 100
w.width = 300
w.height = 350
w.resizable = false
w.menubar = false
w.addressbar = false
w.toolbar = false
w.Visible = True
w.Navigate "http://www.sector001.com/desktoplinksbox.shtml"