Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim CheckedIndexes As String = ""
Dim CheckedText As String = ""
For i As Integer = 0 To Me.cbxlist.Items.Count - 1
If Me.cbxlist.Items(i).Selected Then
CheckedIndexes &= "Index=" & Me.cbxlist.Items(i).Value & ControlChars.CrLf
End If
Next
' Breakpoint here to view
CheckedIndexes = ""
End Sub