[حريف برمجة]

كود :

For i = 0 To CheckedListBox1.Items.Count - 1
           Dim Item As Object = CheckedListBox1.Items(i)

           If CheckedListBox1.GetItemChecked(i) Then
               'Do something if Item is checked
               ListBox1.Items.Add(Item)
           Else
               'Do something else if Item is not checked
               ListBox2.Items.Add(Item)
           End If
       Next