VB - IE Progress Bar
Search




hits.Login
' ***** Create IE Object to give a status message on screen
set IE = createobject("InternetExplorer.application")
' ***** Set the window height and width (in pixels)
ie.width=450
ie.height=350
' ***** Position of window on screen (pixels from the edges of the screen)
ie.top=10
ie.left=10
' ***** Set what menus etc appear on the window (these are switched off)
ie.menubar=0
ie.statusbar=0
ie.resizable=0
ie.toolbar=0
' ***** Put this in to prevent IE looking for a website
ie.navigate ("about:blank")
' ***** Set what appears in the window title bar
ie.document.title="Windows XP Setup......."
' ***** This is what will appear in the main body
strtext="
"
ie.document.body.innerhtml=strtext
' ***** Makes the window visible
ie.visible=1
strtext="
"
StrText = StrText + ("
")
ie.document.body.innerhtml=strtext


