[نور الهدى الهدى]

هذا الكود لإضافة العناصر التي عليها تشيك في ليست بوكس

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If CheckedListBox1.CheckedItems.Count < 1 Then Exit Sub
       For r As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
           ListBox1.Items.Add(CheckedListBox1.CheckedItems(r).ToString)
       Next
   End Sub

كيف يمكن إضافة العناصر الاخري التي لايوجد عليها تشيك في ليست بوكس أخر