Visual Basic - Pause

como hago para colocar un pause virtual a un programa quiero que el pause sea de 2 segundos u luego siga ejecutando claro esto no necesita botones

Hola

Puedes usar el API para consegir ese efecto

En tu formulario coloca esto(En la seccion de General->Declaraciones)

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

Y luego simplemente tienes que llamar el metodo Sleep el cual tiene un parametro que es el intervalo en milesegundos

Por ejemplo usandolo en elevento click de un boton

Private Sub Command1_Click()
Sleep 2000
MsgBox "Hola"
End Sub

Se preciona el boton y luego de dos segundos aparece el mensaje.

Ya solo es que mires donde lo necesitas implementar.

Saludos
http://www.theemulator.tk

Sub Pausar()
Dim Hora As Date
Hora = Time
MousePointer = 11
Do While Hora + 0.000015 > Time
Loop
MousePointer = 0
End Sub

Con esta rutina he conseguido unos dos segundos de pausa, he añadido el muosepointer para las pruebas.

Lo que añadimos a la hora son fracciones de día, claro que como un dia tiene 86400 segundos las cuentas no cuadran, pero en la practica sale.

Se puede hacer una funcion pasando como parametro el retardo, pero como no se si esto es por curiosidad o necesidad lo dejaremos a la curiosidad de cada cual.