Sub Activity_Create(FirstTime As Boolean)
    ltvTest.Initialize("ltvTest")
    Activity.AddView(ltvTest, 0, 0,100%x , 100%y)
    
    bmpTest.Initialize(File.DirAssets, "rose.png")
    
    SetupListView
    
    FillListView
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub SetupListView
    ltvTest.TwoLinesAndBitmap.ItemHeight = 60dip
    ltvTest.TwoLinesAndBitmap.Label.Height = 60dip
    ltvTest.TwoLinesAndBitmap.Label.Left = ltvTest.TwoLinesAndBitmap.ImageView.Width
    ltvTest.TwoLinesAndBitmap.Label.Width = ltvTest.Width - ltvTest.TwoLinesAndBitmap.Label.Left
    ltvTest.TwoLinesAndBitmap.Label.Gravity = Gravity.CENTER
    ltvTest.TwoLinesAndBitmap.SecondLabel.Height = 0
End Sub
Sub FillListView
    Dim i As Int
    
    For i = 0 To 20
        ltvTest.AddTwoLinesAndBitmap("Test " &i, "", bmpTest)
    Next
End Sub