' benötigt:
' 1 CommandButton
' 1 PictureBox
Option Explicit
 
Private Sub Command1_Click()
Static I%
  I = I + 15
  Prozent I, Picture1
End Sub
 
Private Sub Prozent(NV As Integer, P As PictureBox)
Dim Z As String
  If NV > 100 Then NV = 100
  If NV < 0 Then NV = 0
  P.Cls
  P.ScaleMode = 0
  P.ScaleWidth = 100
  P.ScaleHeight = 10
  P.Line (0, 0)-(NV, P.ScaleHeight), P.FillColor, BF
  Z = LTrim(Str(NV)) + "%"
  P.CurrentY = (P.ScaleHeight - P.TextHeight(Z)) / 2
  P.CurrentX = (P.ScaleWidth - P.TextWidth(Z)) / 2
  P.Print Str(NV) & "%"
End Sub

Gru