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

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


Y luego hacemos la pausa


En este caso 1 segundo y medio   

Saludos