'Globals
Dim lstQuickHits As CustomListView
Dim lstHeadShots As CustomListView
'Copied from my init routine
pnlQuickHitsLayout.LoadLayout("QuickHitsLayout.bal")
lstQuickHits.Add(CreateListItem("Test", 180dip, lstQuickHits.AsView.Height), "1")
lstQuickHits.Add(CreateListItem("Test", 180dip, lstQuickHits.AsView.Height), "2")
lstQuickHits.Add(CreateListItem("Test", 180dip, lstQuickHits.AsView.Height), "3")
lstQuickHits.Add(CreateListItem("Test", 180dip, lstQuickHits.AsView.Height), "4")
lstQuickHits.Add(CreateListItem("Test", 180dip, lstQuickHits.AsView.Height), "5")
lstQuickHits.Add(CreateListItem("Test", 180dip, lstQuickHits.AsView.Height), "6")
lstQuickHits.Add(CreateListItem("Test", 180dip, lstQuickHits.AsView.Height), "7")
lstQuickHits.Add(CreateListItem("Test", 180dip, lstQuickHits.AsView.Height), "8")
lstQuickHits.Add(CreateListItem("Test", 180dip, lstQuickHits.AsView.Height), "9")
'My test sub, taken from the example and changed a bit for testing.
Private Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
p.SetLayout(0, 0, Width, Height)
p.LoadLayout("ItemPanel2")
imgThumbnail.Bitmap = LoadBitmap(File.DirAssets, "thumb.png")
lblName.Text = "Fouled Out.wmv"
lblDescription.Text = "Duration: 00:04"
Return p
End Sub