Dim k As Integer
For k = 0 To 1000
    If List1.Selected(k) = True Then---->不正確的屬性
      List1.RemoveItem (k)       陣列索引值
    End If
  Next
End Sub
創作者介紹
創作者 小吳 VBQA 程式設計討論 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(2) 人氣( 8 )