[internetadami]

Renk konusu tamamen size kalmış,
Picture1.BackColor = vbRed
bolumunde yapacagınız bir değişiklikle istediğiniz bar rengine kavusabilirsiniz.
Kullanılacak Malzemeler
1 Adet Command Button
1 Adet Label
1 Adet Picture Box
ve
Renkli BarCiz Projesinin kodları : )

Dim Deger
Private Sub Command1_Click()
Deger=9000
BarCiz (Deger)
End Sub
Private Function BarCiz(Top)
Dim MaxTop, k, i
Dim Aralik, Test
If Top > 5000 Then
MaxTop = 5000
Aralik = Top / 5000
End If
Picture1.BackColor = vbRed
Picture1.Cls
k = 0
For i = 1 To Top
Test = i / Aralik
Test = CStr(Test)
If InStr(Test, ",") = 0 Then
k = k + 1
Picture1.Width = k * 5
Label1.Caption = k * 5
End If
DoEvents
Next
End Function

[Solmaz21]

teşekkürler