PCLV.Initialize(Me, "PCLV", CustomListView1)
Dim words As List = File.ReadList(File.DirAssets, "english.txt")
For Each word As String In words
PCLV.AddItem(60dip, xui.Color_White, word)
Next
PCLV.ShowScrollBar = False
PCLV.Commit
clvIS.Initialize(CustomListView1,False,True,True)