Private Sub CreatControls() If chkcolmlst.CheckedItems.Count > 0 Then Dim lbl(100) As Label For i As Integer = 0 To chkcolmlst.Items.Count - 1 lbl(i) = New Label() newform.Controls.Add(lbl(i)) lbl(i).Text = chkcolmlst.Text lbl(i).Location = New Point(125, 135 + (i * 200)) Next End if
lbl(i).Text = chkcolmlst.Text
i
Items
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)