其中list1的multiselect属性为2
Private Sub CmdClear_Click()
Dim r As Integer
For r = 0 To List2.ListCount - 1
If List1.Selected(r) = True Then
List1.RemoveItem r
End If
Next r
End Sub
我想一次可以选择两个以上的列表项,然后将他们从中间一次性删除,可是出错了
"List1.RemoveItem r"被涂成黄色
请各位大哥大姐帮帮忙啊!!!!!!!!!!!!!!!!!!!!!

谢谢楼上的大侠，非常感谢！