list box Help

مرحبا اخي الكود المطلوب هذا هو

 for i = 0 to (list1.listcount -1)
list1.selected(i) = true
Text1=text1& list1.text
next i

بعد تعبئة List1 بالبانات

ضع الكود السابق في كوماند وضع text1 فارغ.. تحياتي

تفضل أخ عباس

For i = o To List1.ListCount - 1
List1.ListIndex = i
Text1 = Text1 & List1.Text
next

أخ محمدvb سبقتني وأنا أكتب الموضوع

مشكورين مقدما وسوف أقوم بالتجريب

بالفعل عمل 100%

الشكر للجميع