CheckedIndices

整数型集合，返回所有选定项目的位置。

示例

Dim lst As WinForm.CheckedListBox
Dim msg As String
lst = Forms("窗口1").Controls("CheckedListBox1")
msg = "总共选中了" & lst.CheckedIndices.Count & "项，分别是："
For Each Index As Integer In lst.CheckedIndices
    msg = msg & Index & " "
Next
Messagebox.Show(msg)