Android Tutorial List with two columns and a checkbox

Sub Process_Globals
End Sub
Sub Globals
    Dim ScrollView1 As ScrollView
    Dim lstChecks As List
    Dim height As Int
    height = 20dip
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Test for list into ScrollView
    ScrollView1.Initialize(0)
    Dim pnl As Panel
    pnl = ScrollView1.Panel
    Activity.AddView(ScrollView1, 0, 0, 100%x, 50%y)
    lstChecks.Initialize
  
    For i = 1 To 100
        Dim chk As CheckBox
        chk.Initialize("")
  
        chk.Text = "Word" &  i
        chk.Enabled=False
      
        chk.Gravity=Gravity.LEFT
        lstChecks.Add(chk)
        Dim lbl1 As Label
        lbl1.Initialize("")
        lbl1.Text =  i
        lbl1.Gravity = Gravity.RIGHT
        chk.TextColor=Colors.White
        lbl1.TextColor=Colors.Green
      
          pnl.AddView(chk, 0, height * (i - 1), 120dip, height)
        pnl.AddView(lbl1, 150dip, height * (i - 1), 150dip, height)
      
    Next
    pnl.height = lstChecks.Size * height
    ScrollView1.ScrollPosition = height * 100
    'ScrollView1.ScrollPosition = height * pnl.NumberOfViews-1
End Sub

pnl = ScrollView1.Panel

...
...
...
    Next
    pnl.height = lstChecks.Size * height
    DoEvents
  ScrollView1.ScrollPosition = height * pnl.NumberOfViews-1
End Sub

lstChecks.Add(chk)

chk = lstProducts.Get(i)