ok i resolve my problem(at least i think), but i have a little problem....
heres the code:
Code:
Public ObjectsName() As String
Public NumberObjects As Long

Private Sub UserControl_Show()
    blnShow = True
    ReDim ObjectsName(Extender.Parent.Controls.Count)
    NumberObjects = Extender.Parent.Controls.Count - 1
    For i = 0 To Extender.Parent.Controls.Count - 1
        ObjectsName(i) = Extender.Parent.Controls(i).Name
        MsgBox ObjectsName(i)
    Next i
end sub

Private Sub PropertyPage_ApplyChanges()
    NumberObjects = 0
    For i = 0 To lstAddCollisionObject.ListCount - 1
        If lstAddCollisionObject.Selected(i) = True Then NumberObjects = NumberObjects + 1
    Next i
    ReDim ObjectsName(NumberObjects)
    For i = 0 To lstAddCollisionObject.ListCount - 1
        If lstAddCollisionObject.Selected(i) = True Then ObjectsName(i) = lstAddCollisionObject.List(i)
    Next i
    For i = 0 To NumberObjects
        MsgBox ObjectsName(i)
    Next i
end sub
my list box is with check style activated(is why i use selected property, for see if was checked or not)
but here i have a little problem...
i recive an message box empty... can you explain to me why?
thanks