İlk Once 1 Tane Timer 1 Adet Label ekleyelim.

Kod:
Private Sub Form_Load() Timer1.Enabled = True 'Burada Timer nesnesini calistiriyoruz Timer1.Interval = 1000 ' bir saniyede bir Label1.Caption = "120" 'hangi dakikadan geriye saydıracaksanız onu yazınız End Sub
Timer e 2 kere tıklayın şunları yazın.
Kod:
Private Sub Timer1_Timer() Label1.Caption = Val(Label1.Caption) - 1'Timer calıştığı zaman yazılan rakamdan her saniyede 1 cıkaracak If Label1.Caption = "0" Then 'Label1 0 olduğunda mesaj kutusu bizi aşağıdaki ornekte olduğu gibi uyaracak MsgBox "Sure Bitti" 'Timer i kapatıyoruz Timer1.Enabled = False End If End Sub

__________________