yada sadece aşağıdaki kodlar da kullanılabilir
not: buton ve liste kutusu aşağıdaki gibi düzenlenmiş olmalı
1 - Liste0 --> çoklu seçim: basit
2 - Komut2-->tag/im=0
buton tıklama olayı

Private Sub Komut2_Click()

Komut2.Tag = -1 - (Komut2.Tag)

If Komut2.Tag = False Then

Dim Itm As Variant

For Each Itm In Liste0.ItemsSelected

Liste0.Selected(Itm) = False

Next Itm

End If

End Sub

liste0 tıklama olayı

Private Sub Liste0_Click()



If Komut2.Tag = False Then

With Me.Liste0

i = .ListIndex

Dim Itm As Variant

For Each Itm In .ItemsSelected

.Selected(Itm) = False

Next Itm

.Selected(i) = True

End With

End If

End Sub