Private Sub Timer1_Timer() Label1.Caption = Val(Label1.Caption) - 1'Timer çalıştığı zaman yazılan rakamdan her saniyede 1 çıkaracak If Label1.Caption = "0" Then 'Label1 0 olduğunda mesaj kutusu bizi aşağıdaki örnekte olduğu gibi uyaracak MsgBox "Süre Bitti" 'Timer i kapatıyoruz Timer1.Enabled = False End If End Sub