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...
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...
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :