Dim k As Integer
For k = 0 To 1000
If List1.Selected(k) = True Then---->不正確的屬性
List1.RemoveItem (k) 陣列索引值
End If
Next
End Sub
For k = 0 To 1000
If List1.Selected(k) = True Then---->不正確的屬性
List1.RemoveItem (k) 陣列索引值
End If
Next
End Sub
請先 登入 以發表留言。