Sub CREATE_LISTITEMS(ProductName As String, ProductCode As String, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
Activity.AddView(p, 0, 0, Width, Height)
p.LoadLayout("eloading_transact_cell_items")
p.RemoveView
lblProductCode.Text = ProductCode
lblProductName.Text = ProductName
Return p
End Sub