Private Sub CheckedListBox1_ItemCheck(ByVal sender As System.Object, _
        ByVal e As System.Windows.Forms.ItemCheckEventArgs) _
        Handles CheckedListBox1.ItemCheck
 
        If Not e.CurrentValue = e.NewValue Then
            ' Wert wird tatsächlich geändert
            If e.NewValue Then
                ' wird angewählt
                ListBox1.Items.Add(CheckedListBox1.Items(e.Index).ToString())
            Else
                ' wird abgewählt
                Dim ItemToFind As String = _
                    CheckedListBox1.Items(e.Index).ToString()
                For i As Integer = 0 To ListBox1.Items.Count - 1
                    If ListBox1.Items(i).ToString() = ItemToFind Then
                        ListBox1.Items.RemoveAt(i)
                        Exit For
                    End If
                Next
            End If
        End If
    End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.