Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
Label1.Text = "Timer Enabled"
Label2.Text = "Timer Enabled"
Timer1.Enabled = True
Else
Label1.Text = "Disabled Timer"
Label2.Text = "Disabled Timer"
Timer1.Enabled = False
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Label2.Text = Date.Now()
End Sub
End Class
This was first published in March 2004