Private Sub FillCLV
	$CustomListView1$.Clear
	For i = 0 To 9
		Dim Text As String = "# " & i
		$CustomListView1$.Add(CreateCLVItem(Text), i)
	Next
End Sub

Private Sub CreateCLVItem(Text As String) As B4XView
	Dim pnlItem As B4XView = xui.CreatePanel("")
	pnlItem.SetLayoutAnimated(0, 0, 0, $CustomListView1$.GetBase.Width, 50dip)
	pnlItem.LoadLayout("layCLVItem")
	'Sets here the properties of the views contained in the layout.
	$lblItem$.Text = $end$Text
	Return pnlItem
End Sub

Private Sub $CustomListView1$_ItemClick (Index As Int, Value As Object)

End Sub