در مورد اد در لیست

[sinashahab]

سلام
من میخواهم که مثلا متن تکست این باشه :
ali
reza
sina
بعد تو لیست خط های متن تکست اد بشه .
لطفا اگه هم عنوان نا مناسب بود بگید عنوان عوض کنم نه پاک !!!
:تشویق::تشویق:
ممنون

[مهران رسا]

Open "C:\file.txt" For Input As #1
Do While Not (EOF(1))
Line Input #1, x
List1.AddItem x
Loop
Close #1

[vbhamed]

سلام


Private Sub Command1_Click()

Dim s() As String

s = Split(Text1, vbCrLf)

Dim i%

List1.Clear

For i = 0 To UBound(s)
List1.AddItem s(i)
Next

End Sub