Android Question Customer Listview on AS Tabstrip

#Region  Project Attributes 
    #ApplicationLabel: Tabs-List Example
    #VersionCode: 1
    #VersionName: 
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: False
#End Region

Sub Process_Globals
    
End Sub

Sub Globals
    Private xui As XUI
    Private ASTabStrip1 As ASTabStrip
    Type ItemValue (Label1 As Label)
    
    Private clvCO As CustomListView
    Private lblOrderRef As Label
    Private OrderAmount As Label
    Private lblCustomer As Label
    Private lblCustContact As Label
    Private lblDelType As Label
    Private Label1 As Label
    Private Label2 As Label
    Private Label3 As Label
    Private lblStoreAdr As Label
    Dim ImageView1 As ImageView
    Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("List")
    Dim image As List
    image.Initialize
    
    ASTabStrip1.AddTab("Current_Order", "Current Orders",Null,"")
    ASTabStrip1.AddTab("For_Delivery", "For Delivery", Null,"")
    ASTabStrip1.AddTab("Finished_Orders", "Finished Orders",Null,"")
    ASTabStrip1.AddTab("Order_History", "Order History",Null,"")
    
    For Each f As String In Array("govesmart.png")
    
        image.Add(LoadBitmapResize(File.DirAssets, f, 100dip, 100dip, True))
    
    Next
    
    For i = 1 To 20
        Dim iv As ItemValue
        iv.Initialize
        
        clvCO.Add(CreateItem(image.Get(i Mod image.Size), iv), iv)
    Next
    
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
    
End Sub

Private Sub CreateItem (img As Bitmap, iv As ItemValue) As B4XView
    Dim p As B4XView = xui.CreatePanel("")
    
    p.SetLayoutAnimated(0, 0, 0, 100%x, 120dip)
    p.LoadLayout("CurrentOrder_view")
    
    ImageView1.Bitmap = img
    lblOrderRef.Text = "Reference No: 0235"
    OrderAmount.Text = "P 500"
    lblCustomer.Text = "Jon Caesar Basco"
    lblCustContact.Text = "09553174861"
    lblDelType.Text = "Express"
    lblStoreAdr.Text = " STORE ADDRESS: GoveSmart Solutions, Inc.m Luna Street, Lapaz, Iloilo City, Iloilo, Philippines"

    Return p
End Sub
End Sub