Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
ListView1.SingleLineLayout.ItemHeight = 120dip
ListView1.SingleLineLayout.Label.Left = 10dip
Dim cs As CSBuilder
For i = 1 To 100
cs.Initialize
cs.Size(17)
cs.Color(0xFFC0BFC0).Append("Bar code:").Append(CRLF).Pop
cs.RelativeSize(0.8).VerticalAlign(10dip).Append("7892364591238").Append(CRLF).Pop.Pop.Append(CRLF)
cs.Color(0xFFC0BFC0).Append("Qty:").Append(CRLF).Pop
cs.RelativeSize(0.8).VerticalAlign(10dip).Append(i).Append(CRLF).Pop.Pop
cs.PopAll
ListView1.AddSingleLine(cs)
Next
End Sub