[aldery]

السلام عليكم عندي هذا الكود أخذته من المنتدى ولكن المشكلة عندما تصل الثواني الى 00 لا يقوم بخفض الدقائق . 
انا احتاج الى كود يقوم بحساب الوقت يبداء من 1:59:00 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع 

كود :

Public Class Form2

   Dim lSeconds = 20
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       lSeconds = lSeconds - 1
       Label2.Text = "الوقت المتبقي : " & Format(lSeconds, "01:00:00")
       If lSeconds = 0 Then Timer1.Enabled = False
   End Sub

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub
End Class