Sub Globals
Private CLV_Feelings As CustomListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim iCounter=0 as int
'read from text file
Dim listFeelings = File.ReadList(File.DirAssets,"list_feelings.txt") As List
iCounter=0
Do While listFeelings.Size > iCounter
CLV_Feelings.AddTextItem(listFeelings.Get(iCounter),listFeelings.Get(iCounter))
iCounter=iCounter+1
Loop
End Sub