Wait function

[kuldeepiitk]

Is there any way that i can make my application wait for some time so
that page loads in that time, right now I am using following code,

=============== =============== ===
Public Sub waitBySecs(ByVa l nNumSecs As Integer)
Dim d1, d2 As DateTime

d1 = DateTime.Now.Ad dSeconds(nNumSe cs)
d2 = DateTime.Now

While DateTime.Compar e(d2, d1) < 0
Application.DoE vents()
d2 = DateTime.Now
End While
End Sub
=============== =============== ======

but the problem in this function is that it takes the whole CPU usage,
so I am looking for an alternative for it.

TIA
~kuls
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com

[M. Zeeshan Mustafa]

put
Threading.Threa d.Sleep(100)
before
End While

this will make execution to sleep (wait) 100 milliseconds
before going back to While...

--
Hope this helps,
Zeeshan Mustafa, MCSD
"kuldeepiit k" <ku*********@ya hoo-dot-com.no-spam.invalid> wrote in message
news:40******** **@Usenet.com.. .

Is there any way that i can make my application wait for some time so
that page loads in that time, right now I am using following code,

=============== =============== ===
Public Sub waitBySecs(ByVa l nNumSecs As Integer)
Dim d1, d2 As DateTime

d1 = DateTime.Now.Ad dSeconds(nNumSe cs)
d2 = DateTime.Now

While DateTime.Compar e(d2, d1) < 0
Application.DoE vents()
d2 = DateTime.Now
End While
End Sub
=============== =============== ======

but the problem in this function is that it takes the whole CPU usage,
so I am looking for an alternative for it.

TIA
~kuls
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com