Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel
Dim p As Panel
Dim Photo As Bitmap
Dim lbl As Label
p.Initialize("")
p.Color = Colors.Black
Photo.Initialize(File.DirAssets, "photo.jpg")
lbl.Initialize("lbl")
lbl.TextAlignment = lbl.ALIGNMENT_LEFT
lbl.Text = Text
lbl.TextColor = Colors.White
lbl.Font = Font.CreateNew(16)
p.AddView(lbl, 155dip, 2dip, 150dip, Height - 4dip) 'view #0
p.AddView(Photo, 0, 2dip, 50dip, Height + 120dip) 'view #2
Return p
End Sub