Free for PREMIUM members
Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Public Class Form1
Private TargetDateTime As DateTime
Private WithEvents Tmr As New Timer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Tmr.Interval = 1000
Tmr.Enabled = False
Label1.Text = "1:00:00"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Button1.Enabled = False
TargetDateTime = DateTime.Now.AddHours(1)
Private Sub Tmr_Tick(sender As Object, e As EventArgs) Handles Tmr.Tick
Private Sub UpdateCountDown()
Dim TS As TimeSpan = TargetDateTime.Subtract(DateTime.Now)
If TS.TotalMilliseconds > 0 Then
Label1.Text = TS.ToString("hh\:mm\:ss")
Label1.Text = "00:00:00"
Button1.Enabled = True
Open in new window
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.