Private StaticCounter As Int32
 
'--- Timer
Private Sub tmrFortschritt_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles tmrFortschritt.Tick
        If StaticCounter < 400 Then ' --- X Position
            StaticCounter += 10
        Else
            StaticCounter = 0 '--- Kreis wieder am Anfang des Labels zeichnen
        End If
 
        '--- Paintereignis auslösen
        lblFortschritt.Refresh()
    End Sub
 
 
'--- Das Label, auf dem gezeichnet wird
    Private Sub lblFortschritt_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles lblFortschritt.Paint
        Dim gr As Graphics = e.Graphics 
        Dim br As Brush
 
        '--- Timer ist im Betrieb
        If tmrFortschritt.Interval > 0 Then
            '---- Verlaufsfüllung
            br = New Drawing2D.LinearGradientBrush(New Point(0, 0), New Point( _
              10, 10), Color.Blue, Color.White)
            gr.FillEllipse(br, StaticCounter, 0, 10, 10)
 
        End If
    End Sub