Contador Regressivo

[carlosrenatopl]

É o seguinte!

Eu quero colocar no meu formulário um campo que seja um contador regressivo no formato de relógio onde eu coloco o tempo inicial e, ao apertar um botão ele inicie a contagem regressiva. Quando zerar o contador, aparece uma msgbox com o texto o tempo acabou!

Alguém pode me dizer como fazer isso?

[Bruno Krebs]

Bom, veja bem eu não entendi oque seria "no formato relógio" mas acho que oque vou dizer vai ajudar mesmo assim.

Crie uma label chamada label1, depois um timer como o nome timer1 e por último um commandbutto chamado command1.

No label1 você digita o valor que quiser.

Agora esse deve ser o evento timer do timer1:

If Val(Label1) > 0 Then
    Label1.Caption = Val(Label1) - 1
End If
If Val(Label1) = 0 Then
    MsgBox "Acabou o tempo"
    Timer1.Interval = 0
End If

E esse deve ser o evento click do command1:

Timer1.Interval = 1000

Pronto, assim você tera uma contagem regressiva em sua label que quando chegar em 0, irá aparecer a msgbox "Acabou o tempo"