Hi Wilson,

Change your Add method of your collection to the following:

Public Sub Add(ByVal aWSColumn As WSColumn)
    Dim i As Integer
    i = List.Add(aWSColumn)
    aWSColumn.Name = "WSColumn" & (i + 1).ToString
End Sub

Your added WSColumn object will have the Name property set to the index of the added item plus 1 since the index is zero based.

>I have a Column Class which have a Name Property
>I also have a ColumnCollection Class, what i want to do is that every time i add column object to the class, this new object gets by itself the Name of the instance.
>
>example: WSColumn1,WSColumn2,WSColumn3 and so on, how can i do that.
>
>i have a window control in which i add a property ReadOnly that return the ColumnCollection, so in the properties when i add the column objects i would like that the Name Property fill itself with the intance one.
>
>i also would like to validate the name of the property, not to duplicate, i don't want to have two columns in the collection with the same name or an empty name.
>
>
>i don't know if there is an identifier in the ComponenModel to tell a property have to behave like a Name of an Object.
>
>****************************************************************************
>Imports System.ComponentModel
>
>_
>Public Class WSColumn
>Private blnLocked As Boolean
>Private blnButton As Boolean
>Private strName As String
>
>"Description("Specifies wether the Column Text can be modified or not."), _
>DefaultValue(False)" _
>Public Property Locked() As Boolean
>Get
>Return blnLocked
>End Get
>Set(ByVal Value As Boolean)
>blnLocked = Value
>UpdateColumnsBehaviour()
>End Set
>End Property
>
>"Description("Specifies wether the Column has a button or not."), _
>DefaultValue(False)" _
>Public Property Button() As Boolean
>Get
>Return blnButton
>End Get
>Set(ByVal Value As Boolean)
>blnButton = Value
>UpdateColumnsBehaviour()
>End Set
>End Property
>
>"Description("Specifies the Column Width")" _
>Public Property Width()
>Get
>Return msfg.get_ColWidth(msfg.Col)
>End Get
>Set(ByVal Value)
>msfg.set_ColWidth(msfg.Col, Value)
>End Set
>End Property
>
>"Description("Specifies the Column Text")" _
>Public Property Text()
>Get
>Return msfg.get_TextArray(intColTemp)
>End Get
>Set(ByVal Value)
>msfg.set_TextArray(intColTemp, Value)
>End Set
>End Property
>
>"Description("Set or returns the name of the Column."), ParenthesizePropertyName(True)" _
>Public Property Name() As String
>Get
>Return strName
>End Get
>Set(ByVal Value As String)
>strName = Value
>End Set
>End Property
>End Class
>****************************************************************************
>
>****************************************************************************
>Public Class WSColumnCollection
>Inherits System.Collections.CollectionBase
>
>Public Sub Add(ByVal aWSColumn As WSColumn)
>Dim i As Integer
>End Sub
>
>Public Sub Remove(ByVal index As Integer)
>If index > Count - 1 Or index < 0 Then
>System.Windows.Forms.MessageBox.Show("Index not valid!", "WSLibrary", MessageBoxButtons.OK, MessageBoxIcon.Error)
>Else
>List.RemoveAt(index)
>End If
>End Sub
>
>Public Sub Remove(ByVal index As String)
>Dim i As Integer
>For i = 1 To Count
>If CType(List.Item(i), WSColumn).Name = index Then
>Exit For
>End If
>Next
>If i > Count Then
>System.Windows.Forms.MessageBox.Show("Name not valid!", "WSLibrary", MessageBoxButtons.OK, MessageBoxIcon.Error)
>Else
>List.RemoveAt(i)
>End If
>End Sub
>
>Public ReadOnly Property Item(ByVal index As Integer) As WSColumn
>Get
>Return CType(List.Item(index), WSColumn)
>End Get
>End Property
>
>Public ReadOnly Property Item(ByVal index As String) As WSColumn
>Get
>Dim i As Integer
>For i = 1 To Count
>If CType(List.Item(i), WSColumn).Name = index Then
>Exit For
>End If
>Next
>
>Return CType(List.Item(i), WSColumn)
>End Get
>End Property
>End Class