Use a Timer. When it fires, calculate the time until the alarm time and display it.
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
