CODE-VB6.BLOGSPOT.COM

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

Click Timer Activity to Download the Full Project of this Program then try it on your own...