一个关于listbox的VB问题

Question

窗体 上有一个list1和command1,当list1中有项目被 选中时，单击command1，删除list1中被选中的项，如果 list1中没有项目 被选中，则提示“没有 选中项” 

Answer 1

    Dim idx As Integer
    If List1.SelCount = 0 Then
        MsgBox "no"
    Else
        For idx = List1.ListCount - 1 To 0 Step -1
            If List1.Selected(idx) Then
                List1.RemoveItem (idx)
            End If
        Next
    End If