[Anas Mahmoud]

كود :

ListBox1.Items.Clear()

       For Each i In CheckedListBox1.CheckedItems
           ListBox1.Items.Add(i(0))

       Next

بدل 0 برقم العمود الذي به البيانات المطلوب اضافتها لليست بوكس

او الافضل استخدم الخاصية DisplayMember وضع بها اسم العمود الذي تريده ظاهر في الليست بوكس

كود :

       ListBox1.DisplayMember = "Name"
       For Each i In CheckedListBox1.Items
           ListBox1.Items.Add(i)
       Next

---

ايضا الافضل عدم الاعتماد على for لاضافة البيانات قدر المستطاع
استخدام DataSource افضل 

كود :

       ListBox1.DisplayMember = "Name"
       ListBox1.DataSource = CheckedListBox1.CheckedItems