Dim a As StringOpen "c:\1.txt" For Input As #1 Do While Not EOF(1) inout 1#, a List1.AddItem a LoopClose #1
