esperar en visual basic

[diego_z]

hola amigos necesitaria si alguien sabe como hago para poner un tiempo enla ejecucion de un programa por ej: tengo una salida del pp activada y necesito que este activada 3 segundos pero mientras tanto el programa tambien tiene que esperar ese tiempo


Private Sub Timer5_Timer()
       Text3.Text = PortIn(&H379) ' lee el puerto
   If Text3.Text = 63 Then 'si port = a 63
        ClrPortBit &H378, 6 sube lamecha
****aca nesesitaria que se detenga hasta que suba la mecha y luego continuar con el codigo****      
       Timer1.Enabled = True 'habilita el temporizador para la lectura del puerto
   If Text6.Text >= TexmotYfin.Text Then 'compara si son iguales
      ClrPortBit &H378, 4
     
    cualquier dato es agradecido gracias por su tiempo Diego

[ActiveSheet]

dependiendo el tiempo llamas una funcion

function xD(){
}

o si no creas un sub y lo llamas cuando ya este la mecha, mecha? xD

sub algo()
'codigo mechero
end sub

[Novlucker]

Primero declaramos en el formulario la api que se encarga de esto

Código [Seleccionar] Expandir

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


Y luego hacemos la pausa

Código [Seleccionar] Expandir

sleep 1500

En este caso 1 segundo y medio   

Saludos

[diego_z]

gracias amigos la verdad que este es el lugar acertado para hacer una pregunta si quieres una respuesta certera, tenia la idea de spleed pero no sabia como aplicarla saludos