Countdown Timer of Hours, Minutes and Seconds using Timer

CODE

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