Sub CreateListItem(Text 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("CellItem")
p.RemoveView
Label1.Text = Text
lblMessage.Text=msgTitle & CRLF & msgBody
' clvMessage.AddTextItem(msgTitle & CRLF & msgBody,"")
If NextRecord Mod 2 = 0 Then
lblMessage.Color=Colors.Blue
Label1.Color=Colors.Cyan
Else
lblMessage.Color=Colors.White
Label1.Color=Colors.White
End If
' If NextRecord=23 Then Log(lblMessage & msgBody)
iv1.SetBackgroundImage(bmpName)
Return p
End Sub