Visual Basic - while

Quiero hacer un while que no me haga nada o sea:
while timer1.interval<500
pepe=do events()
wend
pero sin utilizar el do events ya que se me desborda la pila
Alguna solucion??

Con este código podrás esperar tantos tiempo como quieras.

d_2 = dateadd("s", date, 5)

while d_1 < d_2
d_1 = date
wend

Espero que te sirva de algo.

De momento no me sirve...
porque visual basic no me deja hacer:
while not tiempo_espera
pepe=pepe+1
pepe=0
wend
Ya se que no tiene logica pero hay modo de que me lo compile bien??