Private Sub scrSpeed_Scroll(ByVal sender As System.Object, _
   ByVal e As System.Windows.Forms.ScrollEventArgs) Handles scrSpeed.Scroll
   Me.Timer1.Interval = Me.scrSpeed.Value
End Sub 'scrSpeed_Scroll