Sub CreateListItem_contactlist(ct As Contactentries, itemWidth As Int, itemheight As Int, Tag as Object) As Panel
Dim p As Panel
p.Initialize("")
p.Tag = Tag ' add the tag to the Panel to find the right panel later
Activity.AddView(p, 0, 0, itemWidth, itemheight)
p.LoadLayout("contacts_cellItem")
p.RemoveView
contact_Label.Text = ct.contact_Name
contact_Label.Tag = ct.contact_Name
contact_imgpanel.Width = contact_image.Width
contact_imgpanel.height = contact_image.height
Dim cdw As ColorDrawable
Return p
End Sub