Public Class Form1
      Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
        System.EventArgs) Handles Timer1.Tick
        If ProgressBar1.Value >= 100 Then
            ProgressBar1.Value = 0
        Else
            ProgressBar1.Value += 1
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ProgressBar1.Style = ProgressBarStyle.Continuous  ' oder Blocks
        NumericUpDown1.Minimum = 1
        NumericUpDown1.Value = 1
        Timer1.Start()
    End Sub
 
    Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
        Timer1.Interval = NumericUpDown1.Value * 10
    End Sub
End Class