不好意思，我说的是checkedlistbox控件，不是list控件，在checklistbox控件里并不包含AddItem，Selected

你的具体要求是什么？

你用了几个复选按钮？

解决的方法，我想到2个：
方法一
1，建议使用控件数组，每单击一次，就统计选中的个数。
在该控件的单击事件里编写程序统计：
Private Sub Check1_Click(Index As Integer)
Dim i As Integer
Dim n As Integer
n = 0
For i = 0 To Check1.UBound
If Check1(i).Value = 1 Then
n = n + 1
End If
Next i
MsgBox n
End Sub
2，如果不用控件数组
Private Sub Command2_Click()

Dim ch As Control
Dim n As Integer
n = 0
For Each ch In Me.Controls
If Left(ch.Name, 5) = "Check" Then
If ch.Value = 1 Then n = n + 1
End If
Next
MsgBox n
End Sub
方法二
在窗体上创建模块变量 n
每次单击某复选按钮，就根据是选中还是不选中，来对n进行加1或减1操作。