Dim scvApproval As ScrollView ' declared in the Globals sub and created in a designer panel
Dim Approvals As List
Approvals = DBUtils.ExecuteMemoryTable(SQLLite, "SELECT awb_number, rte_name FROM TransferAWBs ORDER BY rte_name, awb_number", Null, 0)
lstChecks.Initialize
scvApproval.Panel.RemoveAllViews
For i = 0 To Approvals.Size - 1
Dim Approval() As String
Approval = Approvals.Get(i)
Dim chk As CheckBox
chk.Initialize("")
chk.Text = "Transfer " & Approval(0) & " to " & Approval(1)
lstChecks.Add(chk)
scvApproval.Panel.AddView(chk, 0, height * (i - 1), 400dip, height)
Next