如何判断listview的复选框至少有一个被选中

如何判断listview的复选框至少有一个被选中，求大神指导下。
Dim i As Integer
    For i = 1 To ListView2.ListItems.Count
    If ListView2.ListItems(i).Checked = True Then
       MsgBox 1
    Else
       MsgBox 2
    End If
    Next
我上面这样写不行，它会每行都判断，我想至少有一个复选框被选中就执下一步代码，一个都没有选中就报错。