Monday, February 06, 2012
   
Text Size

VB - IE Progress Bar

 ' ***** 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