Dim Prozent As Integer
    Dim Gesamtmenge As Integer = 2000
    Dim Menge As Integer
 
 
    Private Sub StatusBar1_DrawItem(ByVal sender As Object, ByVal sbdevent As _
      System.Windows.Forms.StatusBarDrawItemEventArgs) Handles _
      StatusBar1.DrawItem
 
        Dim g As Graphics = sbdevent.Graphics
        Dim sb As StatusBar = CType(sender, StatusBar)
        Dim rectf = New RectangleF(sbdevent.Bounds.X + (sbdevent.Bounds.Width / _
          2) - 10, sbdevent.Bounds.Y + 2, sbdevent.Bounds.Width, _
          sbdevent.Bounds.Height)
 
        Prozent = Int((100 / Gesamtmenge) * Menge)
 
        With sbdevent
            With .Bounds
                sbdevent.Graphics.FillRectangle(Brushes.Navy, .X + 2, .Y + 2, _
                  CInt((.Width * Menge) / Gesamtmenge) - 4, .Height - 4)
            End With
        End With
 
        g.DrawString(Prozent & "%", sb.Font, New SolidBrush(Color.Yellow), _
          rectf)
 
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim i As Integer
 
        For i = 1 To Gesamtmenge
 
            Prozent = (100 / 2000) * i
            Menge = i
 
            Me.StatusBar1.Refresh()
        Next
 
    End Sub

Hänk

(Wer früh aufsteht hat mehr vom Tag)