Como FaÇo Pra Criar Um Timer Via CÓdigo ?

[fernando_nagai]

COMO FAÇO PRA CRIAR UM TIMER VIA CÓDIGO ?

Tipo Usando For Next e While... o pior q to pensando em tudo e não consigo fazer....

falou Galera

[Garcia]

Tenta assim:

Private Sub Command1_Click()

Dim hora As Variant

hora = Format(Now(), "hh:MM:ss")

Esperar 5

MsgBox hora & " - " & Format(Now(), "hh:MM:ss")

End Sub

Private Sub Esperar(EsperaEmSegundos As Integer)

Dim hora As Variant

Dim horafinal As Variant

hora = Now()

horafinal = DateAdd("s", EsperaEmSegundos, hora)

Do

If Now() >= horafinal Then

Exit Do

End If

DoEvents

Loop

End Sub

Beleza ?

[Graymalkin]

Dê uma pesquisada sobre a API SetTimer.

Abraços,

Graymalkin