codice:
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '//quanto segue lo puoi beniximo impostare anke dal desiner
        With Timer1
            .Interval = 1 '//Intervallo in millisecondo tra gli eventi Tick
            .Start() '//Fai partire il timer oppure, seguendo la sintassi VB6 basta settare la proprietà Enabled=true
        End With
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        '//Qua piazzi il codice da eseguire
    End Sub
End Class