[Encerrar]

[Guest]

pessoal eu queria quando o timr fosse 00:00:10 o contador volta-se a 0:00:00 e tivesse sempre nisto(um ciclo)

tenho o código assim:

Dim X As Variant
Dim C As Variant
Dim B As Date
Dim Y As Date

Private Sub Timer2_Timer()
Y = Time - X
Label6.Caption = Y
Label4.Caption = Y

pronto isto começa do zero quando carregamos o programa(no load da form) eu queria quando fosse aos 10 segundos começa de novo como fazaer?

[vbtipo]

Para pores o tempo correr de 10 em 10 segundo basta fazeres isto:

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Label1.Caption = 10

End Sub

Private Sub Timer1_Timer()

If Label1 <> "0" Then

  Label1.Caption = Label1 - 1

End If

End Sub

Nota o intervalo do timer tem que ser 1000

[NuGuN]

bem... para executar um comando de 10 em 10 segundos em vez de estar a fazer tudo isso porque não mete logo 10000 no interval do timer.

Cumps

[Cypher]

bem... para executar um comando de 10 em 10 segundos em vez de estar a fazer tudo isso porque não mete logo 10000 no interval do timer.

Cumps

lá está pk os 10000 ms =10s

[Guest]

já resolvi isso