Android Question TwoLinesAndBitmap getitem

'In Process_Gloabls
'    Type LinesBitMap (line1 As String, line2 As String, bmp As Bitmap)
'            Click on LinesBitMap to generate CreatLinesBitMap automatically
'
'    Private ListItems As List

Sub Activity_Create(FirstTime As Boolean)
    ListItems.Initialize
    Dim aList As ListView
    aList.Initialize("aa")
    aList.TwoLinesAndBitmap.Label.SetTextColorAnimated(0, xui.Color_Blue)
    Activity.AddView(aList, 0, 0, 400dip, 400dip)

    ListItems.add(CreateLinesBitMap("a1", "b1", FontAwesomeToBitmap("AA", 20)))
    ListItems.add(CreateLinesBitMap("a2", "b2", FontAwesomeToBitmap("BB", 20)))
    ListItems.add(CreateLinesBitMap("a3", "b3", FontAwesomeToBitmap("CC", 20)))
    For Each lbm As LinesBitMap In ListItems
        aList.AddTwoLinesAndBitmap(lbm.line1, lbm.line2, lbm.bmp)
    Next
End Sub  

Public Sub CreateLinesBitMap (line1 As String, line2 As String, bmp As Bitmap) As LinesBitMap
    Dim t1 As LinesBitMap
    t1.Initialize
    t1.line1 = line1
    t1.line2 = line2
    t1.bmp = bmp
    Return t1
End Sub

Sub aa_ItemClick (index As Int, value As String)    'value is just the line1
    Dim lbm As LinesBitMap = ListItems.Get(index)
    Log(index & TAB & lbm.line1 & TAB & lbm.line2 & TAB & lbm.bmp.width)
End Sub

Sub Activity_Create(FirstTime As Boolean)
    ListItems.Initialize
    Dim aList As ListView
    aList.Initialize("aa")
    aList.TwoLinesAndBitmap.Label.SetTextColorAnimated(0, xui.Color_Blue)
    Activity.AddView(aList, 0, 0, 400dip, 400dip)

    Dim aList As ListView
    aList.Initialize("aa")
    aList.TwoLinesAndBitmap.Label.SetTextColorAnimated(0, xui.Color_Blue)
    Activity.AddView(aList, 0, 0, 400dip, 400dip)

    Dim obj1 As Object = FontAwesomeToBitmap("AA", 20)
    Dim obj2 As Object = FontAwesomeToBitmap("BB", 20)
    Dim obj3 As Object = FontAwesomeToBitmap("CC", 20)
   
    aList.AddTwoLinesAndBitmap2("a1", "b1", obj1, obj1)
    aList.AddTwoLinesAndBitmap2("a2", "b2", obj2, obj2)
    aList.AddTwoLinesAndBitmap2("a3", "b3", obj3, obj3)
End Sub

Sub aa_ItemClick (index As Int, value As Object)
    Dim bmp As Bitmap = value
    Log(index & TAB & bmp.width)
End Sub