[عبدالله الصافي]

[b]أخي عدل الكود للأتي ولكنه يجعل كل الأسطر سطر واحد:[/b]

كود :

Open App.Path & "\test.txt" For Input As #1
list1.additem  Input(LOF(1), 1)
Close #1

ولكني لا أعلم كيف تجعلها في أسطر