Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
p.Color = Colors.ARGB(180,0,0,0)
Dim chk As Switch
chk.Initialize("chk",0,True)
chk.Gravity = Gravity.CENTER_VERTICAL
Dim lbl As Label
lbl.Initialize("")
lbl.Gravity = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.LEFT)
lbl.Text = Text
lbl.TextSize = 18
lbl.TextColor = Colors.White
'b.Text = "Click"
p.AddView(lbl, 5dip, 2dip, 80%x, Height - 4dip) 'view #0
'p.AddView(chk, 80%x, 2dip, 20%x, Height - 4dip) 'view #1
' p.Left = Width
chk.AddToParent(p,280dip,2dip,100dip,Height - 4dip)
Return p
End Sub