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, lvd)
Next
Sub ListView1_ItemClick(Position As Int, Value As Object)
Dim lvd As ListViewData
lvd = Value
...
End Sub