<DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _ <Editor("System.Windows.Forms.Design.StringCollectionEditor, System.Design", "System.Drawing.Design.UITypeEditor, System.Drawing")> _ <Browsable(True)> _ Public Property Items() As Collection Get Return P1Value End Get Set(ByVal value As Collection) For Each Str As String In value Me.Items.Add(CType(Str, String)) Next P1Value = value AddItemsOnForm(P1Value) End Set End Property Private Sub AddItemsOnForm(ByVal MC As Collection) For I As Integer = 1 To P1Value.Count Dim MyLabel As New Label With MyLabel .Text = P1Value.Item(I) .Top = MTop .Left = 1 MsgBox("Item = " & P1Value.Item(I)) End With MyForm.Controls.Add(MyLabel) MTop = MTop + 14 Next End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)