Sub CreateListItem_contactlist(ct As Contactentries, itemWidth As Int, itemheight As Int) As Panel
Dim p As Panel
Log ("ct " & ct & " itemwidth " & itemWidth & " itemheight " & itemheight)
p.Initialize("")
Activity.AddView(p, 0, 0, itemWidth, itemheight)
p.LoadLayout("contacts_cellItem")
p.SetLayoutAnimated(0,0,0,0,0)
p.RemoveView
Return p
End Sub