Private WithEvents t1 As Timer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        t1 = New Timer
        t1.Interval = 1000
        t1.Start()
    End Sub