Hola
Creo que el control ProgressBar, solo coge el color de como tengas definido el tema de tu escritorio.
Pero, te puedes hacer tu propio "progressbar", con un drawingarea.
Te adjunto un ejemplo, de como lo puedes hacer....
Clase barra:
' gambas class file
PUBLIC areadibujo AS DrawingArea
PUBLIC micolor AS Integer 'color
PUBLIC colorfondo AS Integer 'color fondo de la barra
PUBLIC valor AS Float '0 a 1 -> 1 es completa, 0 es vacia
PUBLIC vertexto AS Float ' true se ve texto, false no se ve
PUBLIC colortexto AS Integer
PUBLIC SUB dibuja(porcentaje AS Float)
Draw.Begin(areadibujo)
'dibuja el fondo de nuevo
draw.FillStyle = Fill.Solid
draw.FillColor = colorfondo
Draw.Rect(0, 0, areadibujo.Width, areadibujo.Height)
Draw.Rect(0, 0, areadibujo.Width, areadibujo.Height)
draw.FillStyle = Fill.Solid
draw.FillColor = micolor
Draw.Rect(0, 0, areadibujo.Width * porcentaje, areadibujo.Height)
IF vertexto = TRUE THEN
Draw.Foreground = colortexto
draw.Text(Str$(porcentaje * 100) & " %", areadibujo.width / 2, areadibujo.height / 3)
ENDIF
draw.End
END
Formulario principal con 4 drawingAreas y un botón (al pulsar se ve el cambio que se realiza en una de las barras):
' gambas class file
PUBLIC mibarra AS NEW Barra
PUBLIC mibarra2 AS NEW Barra
PUBLIC mibarra3 AS NEW Barra
PUBLIC mibarra4 AS NEW Barra
PUBLIC A AS Float
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
DrawingArea1.cached = TRUE
mibarra.areadibujo = DrawingArea1
mibarra.micolor = Color.Red
mibarra.colorfondo = Color.white
mibarra.vertexto = TRUE
mibarra.dibuja(0.4)
DrawingArea2.cached = TRUE
mibarra2.areadibujo = DrawingArea2
mibarra2.micolor = Color.blue
mibarra2.colorfondo = Color.red
mibarra2.vertexto = TRUE
mibarra2.colortexto = Color.Green
mibarra2.dibuja(0.743)
DrawingArea3.cached = TRUE
mibarra3.areadibujo = DrawingArea3
mibarra3.micolor = Color.Yellow
mibarra3.vertexto = TRUE
mibarra3.colortexto = Color.Cyan
mibarra3.dibuja(0.2)
DrawingArea4.cached = TRUE
mibarra4.areadibujo = DrawingArea4
mibarra4.micolor = Color.DarkGreen
mibarra4.colorfondo = Color.cyan
mibarra4.vertexto = TRUE
mibarra4.colortexto = Color.Orange
mibarra4.dibuja(0.9)
mibarra.dibuja(0.7)
END
PUBLIC SUB Button1_Click()
mibarra.dibuja(0.1)
END
Foro 
