Dim WithEvents t As Timers.Timer
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.HScrollBar1.Maximum = 1000
        Me.HScrollBar1.Minimum = 10
        t = New Timers.Timer
        t.Interval = Me.HScrollBar1.Value
        t.Start()
    End Sub
    Private Sub t_Elapsed(ByVal sender As Object, ByVal e As _
      System.Timers.ElapsedEventArgs) Handles t.Elapsed
        Me.Text = Now.ToString + " Interval: " + Me.HScrollBar1.Value.ToString
    End Sub
    Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
        Me.t.Interval = Me.HScrollBar1.Value
    End Sub