how to fill an empty shape

hi

i need to fill an empty shape with a new color (something like the old paint command in qb or in gwbasic)
how can i do it ?

thanks,

yoni

[Weasel]

Shape1.BackStyle = 1 'Opaque
Shape1.BackColor = vbRed