¿Recorrer checkedlistbox para pintar items?

[Aquaventus]

Hola Zergatul para saber quienes estan seleccionados utiliza este codigo :

Código vb.net:

Dim i As Integer
        Dim mensaje As String
        mensaje  = "Items Seleccionados :" & ControlChars.CrLf
        For i = 0 To (CheckedListBox1.Items.Count - 1)
            If CheckedListBox1.GetItemChecked(i) = True Then
                mensaje  = mensaje  & "Item " & (i + 1).ToString & " = " & CheckedListBox1.Items(i).ToString & ControlChars.CrLf
            End If
        Next
        MessageBox.Show(mensaje )