Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ' 3 Einträge hinzufügen und den ersten und letzten "anchecken"
        With CheckedListBox1
            .Items.Add("Programmdateien")
            .Items.Add("Icons")
            .Items.Add("Dokumentation")
            .SetItemCheckState(0, CheckState.Checked)
            .SetItemCheckState(2, CheckState.Checked)
        End With
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ' Alle angekreuzten Einträge auflisten:
        For Each item As Object In CheckedListBox1.CheckedItems
            MsgBox(item.ToString)
        Next
        ' Alle Indexes der angekreuten auflisten:
        For Each item As Object In CheckedListBox1.CheckedIndices
            MsgBox(item.ToString)
        Next
 
        'Oder prüfen ob ein bestimmter Eintrag ausgewählt ist:
        MsgBox(CheckedListBox1.CheckedItems.Contains("Dokumentation").ToString) _
          ' True bedeuted "Ja"
    End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co