ULV.Initialize(0, 0, "", "ULV")
ULV.ClearContent
ULV.SetPadding(5dip, 5dip, 5dip, 5dip)
ULV.AddLayout("Item", "Item_LayoutCreator", "Item_ContentFiller", 75dip, True)
ULV.PressedDrawable = Null
ULV.SelectionMode = ULV.SELECTION_SINGLE
ULV.SelectWithClick = True
ULV.AtLeastOneSelection=False
Dim cd As ColorDrawable
cd.Initialize(Colors.Green, 0)
ULV.PressedDrawable = cd
ULV.FadingEdges(True)
ULV.Background = cd
ULV.Color = Colors.Black
ULV.DividerHeight = 7dip
ULV.FastScroller(True)
mapItems.Initialize
Dim idx As Long
ULV.AnimationCleaner = True
Activity.AddView(ULV, 0, TBarHeight + edtSeek.Height + HeaderHeight + 5dip, 100%x , 100%y-(TBarHeight + edtSeek.Height + HeaderHeight))
For i = 0 To dbCursor.RowCount - 1
dbCursor.Position = i
Dim NewItem As typItemData
NewItem.Initialize
NewItem.Anim.Initialize(Me, "Anim_AnimationEnd")
NewItem.Text = dbCursor.GetString("Note")
idx = dbCursor.GetInt("DataID")
mapItems.Put(idx, NewItem)
ULV.AddItem("Item", idx)
ULV.MinimumDistanceForSwipe = 60dip
ULV.SetSwipeDirection(i, ULV.SWIPE_DIRECTION_BOTH)
Next
ULV.AnimationCleaner = True