private clv As CustomListView ' declare by the designer
Sub displayLog
Dim List1 As List
List1 = File.ReadList(PathLog, "log.txt")
clv.Clear
For i = List1.Size-1 To 0 Step -1 ' populate the list : last log events, at the top of list
clv.AddTextItem(List1.Get(i),Null)
Next
End Sub