سؤال في ال Check Box List

لازم تعملها لوب بعدد الصفوف في الاداة مثلا :

Dim indx As int16
Dim cnt as int16=CheckBoxList1.Items.Count-1
Dim myArray(cnt) as String

for indx=0 to cnt	
   myArray(indx)=CheckBoxList1.Items(indx).Text
Next

(( الكود غير مجرب ))