' Formunuza Bir Adet Timer ve Bir Label Ekleyin (2:00:00)

Option Explicit

Private AlarmTime As Date

Private Sub Form_Load()
    AlarmTime = DateAdd("h", 2, Now)
End Sub


Private Sub Timer1_Timer()
Dim txt As String

    txt = Format$(AlarmTime - Now, "h:mm:ss")
    Label1.Caption = txt
End Sub