Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
clv1.AddTextItem("Aaaa", "a")
clv1.AddTextItem("Aaaa" & CRLF & "Bbbb", "b")
clv1.AddTextItem("Aaaa" & CRLF & "Bbbb" & CRLF & "Cccc", "c")
clv1.AddTextItem("Aaaa" & CRLF & "Bbbb" & CRLF & "Cccc" & CRLF & "Dddd" , "d")
clv1.AddTextItem("Aaaa" & CRLF & "Bbbb" & CRLF & "Cccc" & CRLF & "Dddd" & CRLF & "Eeee", "e")
'Second list is created programmatically.
'Create 20 items made of a label, button and checkbox.
clv3.Initialize(Me, "clv3")
Activity.AddView(clv3.AsView, 0, 50%y, 100%x, 50%y)
For i = 1 To 10
clv3.Add(CreateListItem("Item #" & i, clv3.AsView.Width, 50dip), 50dip, "Item #" & i)
Next
End Sub