Hi,

I'm using a TCheckListBox and Looping through all the items to find out all the selected items on the control but couldn't get this to work? Can some one tell me how do I achieve this please. This is what I done:

 For iIndex = 0 To clbTsPots.Items.Count -1

    If clbTsPots.Items.Item(iIndex).Checked = true Then
        MsgBox clbTsPots.Items.Item(iIndex)
    End If
  Next

When I get to this line I'm getting this error:

Microsoft.VBScript runtime error: Object required: clbTsPot.Items.Item (...)

I have used this same code with TListView control but how do i do this with this control? Any help would very much appreciated...

    For i = 0 to clbColumns.Items.Count - 1

        If clbColumns.Checked(i) then
            strCols = strCols & clbColumns.Items.Item(i) & "+"
        End If

    Next

Above is snatched from some code I use - you don't need to iterate the items, just the cols.

Thank you Mike. You again to the rescue!!!

My pleasure!