Property Help!

[NewHelp4Me]

Dim vColor as ColorConstants
 
Public Property Get ButtonColor() As ColorConstants
Set ButtonColor = vColor
End Property
 
Public Property Let ButtonColor(ByVal vNewValue As ColorConstants)
    Set vColor = vnewbuttoncolor
    Set Shape1.BackColor = vnewbuttoncolor
    PropertyChanged "ButtonColor"
End Property

i cant get a property of my usercontrol to set Shape1.BackColor then refresh... This is for a button i wanted to experiment with...