Sub Globals
Dim lv As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
lv.Initialize("lv")
activity.AddView(lv, 0, 0, 100%x, 100%y)
lv.TwoLinesLayout.ItemHeight = 140dip
lv.TwoLinesLayout.SecondLabel.Height = 120dip
For i = 1 To 100
lv.AddTwoLines("Item #" & i, "This is a very long text" & CRLF & "This is a very long text" & CRLF & "This is a very long text" & CRLF _
& "This is a very long text" & CRLF & "This is a very long text" & CRLF)
Next
End Sub