ListView Second Line

Sub Process_Globals
Dim ListLine1() as string
Dim ListLine2() as string
...

Sub Activity_Create(FirstTime as Boolean)
ListLine1 = Array as string("item1", "item2", "item3",....)
ListLine2 = Array as string("item1_Description", "item2_Description", "item3_Description", .....)

For i = 0 to (ListLine1.Length - 1)
    ListView.AddTwoLines2(ListLine1(i), ListLine2(i), i)
Next
....

Sub ListView_ItemClick (Position As Int, Value As Object)
    Msgbox(ListLine2(value), ListLine1(value))
end sub

Sub Globals
 Type ListViewData (FirstRow As String, SecondRow As String)
End Sub

For i = 0 to 100
 Dim lvd As ListViewData
 lvd.Initialize
 lvd.FirstRow = "abc"
 lvd.SecondRow=  "def"
 ListView1.AddTwoLines2(lvd.FirstRow, lvd.SecondRow, [COLOR="Red"]lvd[/COLOR])
Next


Sub ListView1_ItemClick(Position As Int, Value As Object)
 Dim lvd As ListViewData
 lvd = Value
 ...
End Sub