Hjælp til shapes

hej

Jeg tror du har sat en shape ind som en circle deraf navngivningen (shpLampRigA_Green), så kan du ændre farve således:

Private Sub Command1_Click()

shpLampRigA_Green.FillColor = RGB(255, 0, 0) 'rød
shpLampRigA_Green.FillStyle = 0 'solid farve

End Sub

mvh Hiks

Oki. Måske har jeg ikke info nok på.
Jeg har tegnet en cirkel som antaget og sat følgende propertyes.
AutoRedraw = True
BorderStyle = 0 - None

Fandt fejlen ... Jeg havde fået lavet et array af shapes...

Tak :-)