CARLOS
21 de Agosto del 2003

HOLA
NECESITO QUE ME AYUDEN Y ME DIGAN COMO PUEDO GENERAR RETARDOS MENORES A UN SEGUNDO, NECESITO UNO DE 20ms.

GRACIAS. SI PUEDEN POR FAVOR ENVIENME SU AYUDA AL CORREO CON ASUNTO AYUDA VISUAL.

Juan
21 de Agosto del 2003

Puedes usar el control Timer o la función API gettickcount,
pero si necesitas mayor precisión tienes un ejemplo
en esta página http://guille.costasol.net/vb_api03.htm#api03_14
Utiliza la función timeGetTime que según dice tiene
una precisión de 1 milisegundo.

Heber
21 de Agosto del 2003

Utiliza esta función de la API en un módulo bas

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

' Luego en el procedimiento que quieras llámala asi:

Private Sub Ejemplo
retardo 1 ' para un milisegundo
' o asi ...
retardo 60000 ' para un minuto
End sub

' el procedimiento retardo sería sólo esto:

Private Sub retardo (param as long)
Sleep (param)
end sub

Revisa la sintaxis, ya que lo he digitado directamente en pantalla y puedo haber cometido algún error
Suerte.