<!----Www.Dlisladn.Com---> <br>< language=VB> <br> <!-- <br> Dim Bar, Line, SP <br> Bar = 0 <br> Line = "|" <br> sP = 200 <br> Function Window_onLoad() <br> Bar = 95 <br> sP = 10 <br> END Function <br> <br> Function Count() <br> If Bar < 100 Then <br> Bar = Bar + 1 <br> Window.Status = "Ljava.mihanblog.com => plz Wait 4 Load : " & Bar & "%" & " " & String(Bar, Line) <br> setTimeout "Count()", SP <br> Else <br> Window.Status = "" <br> Document.Body.Style.Display = "" <br> End If <br> End Function <br> Call Count() <br> --> <br></> <br><!----Www.Dlisladn.Com--->