create lable of checked items in checklistbox

See more:

VB

Hello Everyone ,

i need one help, what i want is that there is a checklistbox i want to create a lable of items checked in checkedboxlist i have writen this code :

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

now problem is that it is creating a lable but it is creating a lables of same name what i select the last item in checkedlistbox.

please help...............