Dim Bar, Line, SP
Bar = 0
Line = "."
SP = 100

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

Function Carrega()
  If Bar < 100 Then
    Bar = Bar + 1
    Window.Status = "Aguarde ...  Carregando Página ( " & Bar & "% " &  "Carregados ... )"
    setTimeout "Carrega()", SP
  Else
    Window.Status = "O site que faz a diferença"
    Document.Body.Style.Display = ""
  End If
End Function

Call Carrega()