Public Class FormMain
 
    Private Sub FormMain_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        AddHandler CheckedListBox1.ItemCheck, AddressOf _
        Me.CheckedListListItemCheck
 
        For i As Integer = 1 To 20
            CheckedListBox1.Items.Add("Testeintragnr. " & i)
        Next
 
        Me.SetItemChecked(CheckedListBox1, 5, True)
        Me.SetItemChecked(CheckedListBox1, 8, True)
    End Sub
 
    Private Sub CheckedListListItemCheck(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.ItemCheckEventArgs)
        e.NewValue = e.CurrentValue
    End Sub
 
    Private Sub SetItemChecked(ByVal chkList As CheckedListBox, ByVal index As _
      Integer, ByVal value As Boolean)
        RemoveHandler chkList.ItemCheck, AddressOf Me.CheckedListListItemCheck
        chkList.SetItemChecked(index, value)
        AddHandler chkList.ItemCheck, AddressOf Me.CheckedListListItemCheck
    End Sub
 
End Class