السلام عليكم
عندي أداة checkedlistbox بها بيانات وأريد نقل البيانات المختارة منها فقط Checked إلى أداة listbox فكتبت هذا الكود
List
ListBix1.Items.Clear()
For i = 0 To CheckedListBox1.Items.Count - 1
If CheckedListBox1.GetItemChecked(i) Then
ListBix1.Items.Add(CheckedListBox1.Text)
End If
Nextلكنه لا ينقل فقط إلا آخر بيان محدد في أداة checkedlistbox
برجاء المساعدة وشكرا