Sub Globals
    Dim ListView1 As ListView
    Dim bmp As Bitmap
End Sub
Sub Activity_Create(FirstTime As Boolean)
    Dim i As Int
    
    bmp.Initialize(File.DirAssets, "Rose.png")
    
    ListView1.Initialize("ListView1")
    Activity.AddView(ListView1, 0, 0, 100%x, 100%y)
    
    ListView1.TwoLinesAndBitmap.ItemHeight = 70dip
    ListView1.TwoLinesAndBitmap.Label.Left = 0
    ListView1.TwoLinesAndBitmap.Label.Top = 0
    ListView1.TwoLinesAndBitmap.Label.Width = ListView1.Width - 70dip
    ListView1.TwoLinesAndBitmap.Label.Height = 40dip
    ListView1.TwoLinesAndBitmap.Label.Gravity = Gravity.CENTER_VERTICAL
    ListView1.TwoLinesAndBitmap.Label.TextSize = 20
    
    ListView1.TwoLinesAndBitmap.SecondLabel.Left = 0
    ListView1.TwoLinesAndBitmap.SecondLabel.Top = 40dip
    ListView1.TwoLinesAndBitmap.SecondLabel.Width = ListView1.Width - 70dip
    ListView1.TwoLinesAndBitmap.SecondLabel.Height = 30dip
    ListView1.TwoLinesAndBitmap.SecondLabel.Gravity = Gravity.CENTER_VERTICAL
    ListView1.TwoLinesAndBitmap.SecondLabel.TextSize = 16
    
    ListView1.TwoLinesAndBitmap.ImageView.Left = ListView1.TwoLinesAndBitmap.Label.Width + 5dip
    ListView1.TwoLinesAndBitmap.ImageView.Top = 5dip
    ListView1.TwoLinesAndBitmap.ImageView.Width = 60dip
    ListView1.TwoLinesAndBitmap.ImageView.Height = 60dip
    ListView1.TwoLinesAndBitmap.ImageView.Gravity = Gravity.FILL
    
    For i = 0 To 20
        ListView1.AddTwoLinesAndBitmap("Line 1" & i, "Line 2" & i, bmp)
    Next
End Sub