B4J Question Creating a list of Checkboxes

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
   
    Private lv As ListView
   
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
    MainForm.Show
   
    lv.Initialize("lv")
    MainForm.RootPane.AddNode(lv, 0, 0, 0, 0)
    MainForm.RootPane.SetAnchors(lv, 0, 0, 0,0)
   
    For i = 0 To 5
       
        Dim chk1 As CheckBox
        chk1.Initialize("")
        chk1.Text = "Test Check " & i
        lv.Items.Add(chk1)
       
    Next
   
End Sub

Sub lv_SelectedIndexChanged(Index As Int)
    If Index > -1 Then
        Dim chk1 As CheckBox = lv.SelectedItem
        Log(chk1.Text)
    End If
End Sub

chk1.Initialize("chk1")

Sub chk1_CheckedChange(Checked As Boolean)
    Dim CB As CheckBox = Sender
    Log(CB.Text & " : " CB.Checked)
End Sub

For Each CB As Checkbox in lv.Items
    Log(CB.Text & " : " & CB.Checked)
    If CB.Checked Then
        'Do Whatever
    End If
Next