Experts Exchange Solution brought to you by
"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.
Public Class Form1
Dim RemainingTime As TimeSpan
Dim remaining As Integer
Dim StartDate As Date
Dim EndDate As Date
Dim activatedAlready = False
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
StartDate = Date.Now
'EndDate = StartDate.AddMinutes(1)
EndDate = StartDate.AddDays(3)
Label12.Visible = False
Timer1.Interval = "1000"
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
RemainingTime = EndDate - Date.Now
remaining = RemainingTime.TotalSeconds
If remaining > 0 Then
Label3.Text = RemainingTime.Days
Label4.Text = RemainingTime.Hours
Label5.Text = RemainingTime.Minutes
Label8.Text = RemainingTime.Seconds
Label12.Visible = True
Open in new window
Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.
From novice to tech pro — start learning today.
Members can enroll in this course at no extra cost.