Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Timer1.Interval = 1000
        Timer1.Enabled = True
 
        AddHandler Timer1.Tick, AddressOf tick
    End Sub
 
    Private Sub tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Timer1.Tick
        Label1.Text = TimeOfDay
 
    End Sub