كيف استطيع تحميل بيانات لست بوكس (List) الى ملف

اعمل حلقة تكرار ، تدور على كل محتويات ال list ، و خزن القيم في الملف ...

ان لم تكن تعرف استخدام حلقات التكرار ، ساعد الكود ...

ياليت تخبرني كيف

For i = 0 To List1.ListCount - 1

List1.ListIndex = i

Txt$ = Txt$ & List1.Text

Next

قم بتخزين قيمة المتغير في الملف ، كما هو معروف

شكرا جزيلا لكن ليس المطلوب

المطلوب مثال عملى لتحميل بيانات اللست List1 التي يتجاوز عددها 9999 في مستند نصي من نوع txt*. المفكرة (notepad)

يعني عند الضغط على زر يقوم بنقل كل بيانات اللستة List1 الى مستند نصي من نوع txt*. المفكرة (notepad)

ارجو ان اكون قد وضحت

اريد مثال

Private Sub Command1_Click() 
n = FreeFile 
Open "c:test.txt" For Append As #n 
For x = 0 To List1.ListCount - 1 
Print #n, List1.List(x) 
Next 
Close #n 
End Sub

الحل الصحيح والسليم