Unable to check RRI checkbox

Private Sub Form_Load()
    Dim Record As ReportRecord
    Dim Item As ReportRecordItem
    Dim Column As ReportColumn
        
    Set Column = wndReportControl.Columns.Add(0, "Alias", 1, True)
    Column.EditOptions.AllowEdit = False
        
    Set Column = wndReportControl.Columns.Add(1, "Name", 1, True)
    'Column.EditOptions.AllowEdit = True
        
    Set Column = wndReportControl.Columns.Add(2, "Surname", 1, True)
    Column.EditOptions.AllowEdit = False
    
    Set Record = wndReportControl.Records.Add()
        
    Set Item = Record.AddItem("Fred Garvin")
    Item.HasCheckbox = True
        
    Set Item = Record.AddItem("Fred")
    
        Item.CreateEditOptions
        Item.EditOptions.AllowEdit = True
        Item.EditOptions.SelectTextOnEdit = True
    
    Set Item = Record.AddItem("Garvin")
    Item.HasCheckbox = True
    
    wndReportControl.AllowEdit = True
    wndReportControl.Populate
End Sub