***********************************************************
# SUPPRIMER DES ENTREES SPECIFIQUES #1
***********************************************************

Private Sub btn_Click()

' Suppression des lignes Cyber@tom

For i = List1.ListCount - 1 To 0 Step -1

  If List1.List(i) = "CYBERATOM"Then List1.RemoveItem i

Next i

End Sub

On souhaite supprimer toutes les entrées de la ListBox ayant pour texte 'CYBERATOM'. On parcourt alors toutes les entrées de la ListBox àl'aide d'une boucle For...Next. Il est important que cette boucle parcoure les entrées de bas en haut. En effet, dans le cas inverse, si une entrée est supprimée, 'i' prendra alors une valeur trop grande àla fin, car si le nombre d'entrées varie au cours de la boucle, le nombre ListCount défini au début lui ne varie pas.
List1.List(i) renvoit le texte de l'item ayant pour index i. On le compare donc à'CYBERATOM', et s'ils concordent, l'item est alors suppriméàl'aide de la méthode RemoveItem.

***********************************************************
# SELECTIONNER TOUTES LES ENTREES #2
***********************************************************


Private Sub btn_Click()

' Sélection de chaque entrée

For i = 0 To List1.ListCount - 1

  List1.Selected(i) = True

Next i

End Sub

Attention, pour cet exemple, la ListBox doit avoir la propriétéMultiSelect à1 ou à2 !