Geri sayım sayacı

[MMuddi64]

Private Sub Form_Load()
Timer1.Enabled = True 'Timer 1 çalışacak
Timer1.Interval = 1000 'her 1 SN de
Label1.Caption = "10" 'hangi sayıdan geri sayacaksak o rakamı yazıyoruz
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) - 1 'timer her SN çalıştığı için label 1 de yazarn RAKAM dan 1 çıkaracak güzel mantık
If Label1.Caption = "0" Then label1 0 olduğunda msgbox ile bizi uyaracak
MsgBox "Süre Doldu"
Timer1.Enabled = False
End If
End Sub


form'a 1 adet timer a det label ekLiyoruz

timer interval 'ı 1000 yapın