BarPercent

Sub PercentBar(Picture As PictureBox, Part As Integer, Whole As Integer)
Randomize Timer
If (Picture.BorderStyle <> 0) Then Picture.BorderStyle = 0
If (Picture.AutoRedraw <> True) Then Picture.AutoRedraw = True
If (Picture.AutoRedraw <> True) Then Picture.AutoRedraw = True
If (Picture.ScaleMode <> 3) Then Picture.ScaleMode = 3
If (Picture.BackColor <> &HC0C0C0) Then Picture.BackColor = &HC0C0C0
If (Picture.ForeColor <> &H800000) Then Picture.ForeColor = &H800000
Counter = 10
If (Part > 0) And (Whole > 0) Then
For X = 3 To (Part / Whole) * (Picture.ScaleWidth - 6) Step 3
Counter = Counter + 3
If Counter >= 8 Then
Picture.Line (X, 3)-(X + 6, Picture.ScaleHeight - 4), , BF
Counter = 0
End If
Next X
End If
Picture.Line (0, 0)-(Picture.ScaleWidth, Picture.ScaleHeight), _
&H808080, B
Picture.Line (1, Picture.ScaleHeight - 1)-_
(Picture.ScaleWidth, Picture.ScaleHeight - 1), &HFFFFFF
Picture.Line (Picture.ScaleWidth - 1, 1)-_
(Picture.ScaleWidth - 1, Picture.ScaleHeight), &HFFFFFF
End Sub