Sub Globals
Private PlayListView As UltimateListView
...
End Sub
Sub Activity_Create(FirstTime As Boolean)
...
Dim cd As ColorDrawable
cd.Initialize(Colors.DarkGray, 4dip)
PlayListView.PressedDrawable=cd
PlayListView.DividerDrawable=cd
PlayListView.DividerHeight=2
PlayListView.SelectionMode=PlayListView.SELECTION_SINGLE
PlayListView.SelectWithClick=True
PlayListView.FastScroller(True)
PlayListView.AddLayout("PLAYOUT", "Item_LayoutCreator", "Item_ContentFiller", 50dip, True)
...
End Sub