Visual Basic para Aplicaciones - Bucle que dure un segundo

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...)

Intenta con esta api

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Se utiliza "sleep 1000"

El problema es que paraliza el sistema durante ese segundo

Hace poco respondi con un codigo pero no recuerdo donde lo vi.. la respuesta la di en el foro de Visual Basic y tampoco encuentro donde

Esto es bastante siemple con esta funcion:

Public Sub Delay(ByVal nSecond As Single)
Dim t0 As Single
t0 = Timer
Do While Timer - t0 < nSecond
Dim dummy As Integer

dummy = DoEvents()
If Timer < t0 Then
t0 = t0 - CLng(24) * CLng(60) * CLng(60)
End If
Loop
End Sub

Usala en tu bucle asi:

Sub Command1_Click ( )
For i = 1 to X
Instrucciones
Delay(1) 'Esperamos un seguno...
Instrucciones
Next
End Sub

A Delay se le pasa como parametro un numero que seran los segundos que esperara antes de ceder la ejecucion a la siguiente linea, sencillo no?