Visual Basic - Duracion 1 segundo bucle

Alguien sabe como hacer que un bucle se ejecute durante un segundo? (O sea, que el bucle dure 1000 milisegundos, no que se ejecute cada un segundo, que es lo fácil con el timer...)

si es lo mas facil y lo habilitas o deshabilitas con el timer1.enable=true o false....

Se puede hacer al menos de dos maneras, te pongo aqui la mas factible

Sub Delay(pdblSeconds As Double)

Const OneSecond As Double = 1#/(1440# * 60#)

Dim dblWaitUntil As Date
dblWaitUntil = Now + OneSecond * pdblSeconds
Do Until Now>dblWaitUntil
Sleep 100
DoEvents ' Allow windows message to be processed
Loop

End Sub

Se utiliza : Delay 1

O cualquier numero de segundos que quieras esperar