¿A qué te refieres con 'invertir la selección'?. ¿Que tiene que ver la pregunta con los pop-up?
Si lo que quieres es que se marquen los elementos de los list que no estaban marcados y que se desmarquen los marcados igual te sirve esto:
Código:
Dim r
for r=0 to lista.listcount-1
lista.selected(r)=not lista.selected(r)
next