Grouped Properties for Activex

How can add grouped properties for an activex control

for ex:
UserCtl.Group1.Prop1 = ""
UserCtl.Group1.Prop2 = ""
UserCtl.Group1.Prop3 = ""

UserCtl.Group2.Prop1 = ""
UserCtl.Group2.Prop2 = ""


Any example code would be great

thanks in advance

You'd have to make a class and then make an object of the class as a property of the Control.

VB Code:

'in class
 
'although these should be properties not just public variables
Public Name As String
Public Rank As String
 
'in the control
Private m_Class as Class1
 
'no let
Public Property Get ClassGroup() As Class1
   Set ClassGroup=m_Class
End Property
 
'in Initialize
Set m_Class=New Class1
 
'in Terminate
Set m_Class=Nothing
 
'then in your app
MyCtrl.ClassGroup.Name="Billy"