Foro de elhacker.net

hola
m gustaria poner un intervalo de X segundos entre dos operaciones. Por ejemplo, k primero cambie el caption del form y despues de 5 segundos, cambie el texto de text1.

Hola, proba con la api GetTickCount o con la propiedad Timer....con sleep ni probes porque te traba todo...

saludos.

Este código permite hacer lo que quieres, aunque hay un poco de retraso.

Public Sub Esperar(Tiempo As Single)
    Dim ComienzoTiempo As Single
    Dim FinTiempo As Single
    ComienzoTiempo = Timer
    FinTiempo = ComienzoTiempo + Tiempo
    Do While FinTiempo > Timer
        DoEvents
        If ComienzoTiempo > Timer Then
            FinTiempo = FinTiempo - 24 * 60 * 60
        End If
    Loop
End Sub
 

Saludos.

Utiliza un timer y colocas em el intervalo 1000, y en una variable llevas la cantidad de segundo que transcurran, cuando llegue a 5 que cambie el caption y cuando llegue a 10 el text1, todo queda a la imaginación...


Dim c As Integer
Private Sub Timer1_Timer()
c = c + 1
If c = 5 Then Me.Caption = "El titulo que quieras"
If c = 10 Then Text1.Text = "El texto que quieras"
End Sub

pero lo mejor es hacerlo sin Timer, ya dije como se hace y ya pusieron una forma ...