Dim Bar, Line, SP
Bar = 0  
Line = "|"
SP = 300

Function Window_Onload()
  Bar = 95
  SP = 10
End Function

Function load_page()
  If Bar < 100 Then
    Bar = Bar + 1
    Window.Status = "loading " &  " " & String(Bar, Line)
    setTimeout "load_page()", SP
  Else
    Window.Status = "Tri-Solutions Ltd. - Business with a different perspective"
    Document.Body.Style.Display = ""
  End If    
End Function

Call load_page()