ciao prova cosi:

codice:
Shape1.FillStyle = 0
Shape1.FillColor = RGB(255, 0, 0)
oppure :

codice:
Shape1.FillStyle = 0
Shape1.FillColor = QBColor(1)