Как изменить список вместо представления списка

Question

Ниже код работает для представления списка, но я хочу использовать список вместо представления списка

lst = просмотр списка из приведенного ниже кода

Dim idx as integer
    idx = 1
        lst.ListItems.Clear
        If Emp.Employees.RecordCount > 0 Then
            Emp.Employees.MoveFirst
            While Not Employees.EOF
                lst.ListItems.Add idx, , EmployeeID
                lst.ListItems(idx).ListSubItems.Add , , FirstName
                If IsAssigned(EmployeeID, CurrentSchedule) Then
                    lst.ListItems(idx).Checked = True
                Else
                    lst.ListItems(idx).Checked = False
                End If
                 idx = idx + 1
                Employees.MoveNext
            Wend
        End If

Имя списка - lstbox

Я пытался

lstbox.selected(I) = true не работает вместо lst.ListItems(idx).Checked = True

Answer 1

with aListbox
    .Clear
    '//loop here
        .additem "The Item Text"
        '//add the numeric id value
        .itemdata(.NewIndex) = 112233
        '//check it
        if (condition) then
            .Selected(.NewIndex) = True
        end if
end with

'//sample click
msgbox aListbox.list(aListbox.listindex) & " id=" & aListbox.itemdata(aListbox.listindex)