Private Sub Command1_Click()
    Dim mitem As ListItem
    '如果想获得某个listitem的checked值
    Set mitem = Me.ListView1.ListItems(10)
    Debug.Print mitem.Checked
    '如果想获得所有listitem的checked值
    For Each mitem In Me.ListView1.ListItems
        Debug.Print "第" + CStr(mitem.Index) + "个listitem的checked值为：" + CStr(mitem.Checked)
   Next
End Sub

Private Sub Form_Load()
    Dim item As ListItem
    Dim i As Long
    Dim Checked As Boolean
    Me.ListView1.Checkboxes = True
    For i = 1 To 100
        Set item = Me.ListView1.ListItems.Add(, , "item " + CStr(i))
        Checked = Not Checked
        item.Checked = Checked
    Next
End Sub