Dim TR13 As TextReader
TR13.Initialize(File.OpenInput(File.DirInternal,"Filelist.lst"))
Dim Listi1 As List
Dim ListiEintrag As String
Listi1.Initialize
For I = 1 To 10
' TR13.ReadLine(Listi1)
Listi1.Add(TR13.ReadLine)
MyPlanListView1.AddSingleLine(Listi1)
Next
TR13.Close