OCX properties list

Hi! I've created an OCX and I just can not change my default properties form 0 to 0 - Horizontal.

As you've use others OCX control. they have a properties list like:-

Code:

---

    Orentation (Properties)
    Available setting
    0 - Horizontal
    1 - Vertical

---

So far, I only know to to create a 0 and 1. And can not add in the rest of the description. Hence, the user might not be ubderstad the setting without the readme.txt or help file.

Also, how do I change my OCX control icon?

If you create a public enumerator in your UserControl module (declarations section), then you can set the return type of a 'property' procedure to be the name of the public enumerator.

EG:

Public Enum EN_Orientation
Horizontal = 0
Vertical = 1
Diagonally = 2
End Enum

Public Property Get Orientation() AS EN_Orientation

End Property

Public Property Let Orientation(ByVal NewValue AS EN_Orientation)

End Property
---

To set the OCX's Icon (as it appears in the tool box), set the following property:

UserControl.TextboxBitmap

Thanks, sominm.