Deze code in een bevelknoop klikt gebeurtenis toont hoe te om a te manipuleren multiselected punten in een listbox.
ListBox: List1/properties/other/multiselect: Eenvoudig of Uitgebreid (gebruikend CTRL-klik om meer punten te selecteren)
Privé SubcmdList_Click ()
Schemerige I als Geheel
Debug.Print List1.ItemsSelected.Count
Voor I = 0 aan List1.ItemsSelected.Count - 1
Van Debug.Print List1.ItemsSelected (I) 'de index van geselecteerd punt
Debug.Print List1.ItemData (List1.ItemsSelected (I)) 'geselecteerde waarde van punt
Daarna
Sub van het eind