Hi
Here is a hacked up version that works. Hacked up because I had to invent some details for the example.
' in your case the listbox is already
' on the Form
Dim chklst As New CheckedListBox
chklst.Name = "chklst123"
Controls.Add(chklst)
' I have invented newitem value
Dim newitem As String = "123456789"
Dim counter As String = "123"
For Each c As Control In Controls
If c.Name = "chklst" + counter Then
Dim cont As CheckedListBox = TryCast(c, CheckedListBox)
If Not cont Is Nothing Then cont.Items.Add(newitem)
End If
Next