hola aca tenes un ejemplo muy facil de cambiar el color de fondo,poniendo el valor del color en RGB desde codigo:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_USER = &H400
Const PBM_SETBARCOLOR = (WM_USER + 9)
Private Sub Form_Load()
ProgressBar1.Value = 50
Call SendMessage(ProgressBar1.hwnd, PBM_SETBARCOLOR, 0&, ByVal RGB(0, 0, 0))
End Sub
en este caso se pinta de negro,pero vos cambiale los valores RGB para obtener el color que desees.
pero te recomendaria que en ves de usar esa barra(es fea jeje),uses algun control de usuario que imite una barra y sea mas colorida,con colores en degradado y muchisimas opciones mas,fijate algunos modelos aca:
http://www.recursosvisualbasic.com.a...-degradado.htm http://www.recursosvisualbasic.com.a...-xp-varios.htm
aca tenes un ejemplito mas de como cambiar el color de la barra obteniendo un efecto mas lindo:
http://www.recursosvisualbasic.com.a...rogressbar.htm http://www.recursosvisualbasic.com.a...e-progreso.htm
ojala te sirvan.
saludos.