about color dialog in property

[joaquim]

i'm build a property:

Public Property Get TransparentColor() As Long
    If blnDestroyed = True Then Col.Activate = False
    TransparentColor = lngTransparentColor
End Property

Public Property Let TransparentColor(ByVal vNewValue As Long)
    If blnDestroyed = True Then Exit Property
    lngTransparentColor = vNewValue
    PropertyChanged "TransparentColor"
End Property

my question is: can change "as long" to "commondialog.dialogcolor" or something like that?
my objective is for apper a color dialog.
thanks

[Hack]

Try just: CommonDialog1.Color

[joaquim]

Try just: CommonDialog1.Color

give me an error...
i know what i can do: i continue with same property, but i must associate with 1 property page...
is the only way...
did you sod that post about my animation property?
thanks

[Hack]

did you sod that post about my animation property?

Yes, but never in my entire career have I ever had the need to do anything with animation.

[joaquim]

Yes, but never in my entire career have I ever had the need to do anything with animation.

i'm so sorry... that question, about animation, wasn't to do with these property question... i'm so sorry...
(otherthing if my question in that post is confuse, please tell me)
thanks for everything

[joaquim]

in moment i did 1 thing:
i create a property page....
in these property page i must call color dialog...
but i have 2 problems:
1-the property page isn't hidden, how can i do it?
2-when i change the property is like i click in custom property(the other group of property is showed)... can i resolve these problem?
thanks

[joaquim]

Public Property Get NewColor() As OLE_COLOR
    If blnDestroyed = True Then Exit Property
    NewColor = lngNewColor
End Property

Public Property Let NewColor(ByVal vNewValue As OLE_COLOR)
    If blnDestroyed = True Then Exit Property
    lngNewColor = vNewValue
    Call ShowImage
    PropertyChanged "NewColor"
End Property

what is OLE_COLOR?
can i change it for new diferent dialog(like color dialog)?
thanks