liste kutusu çoklu seçime izin verilmeli
formdaki kodlar

Option Compare Database ' bu kod zaten var

Dim Coklu As Boolean  '<--bu değişken eklenecek

form yüklenirken değer atama

Private Sub Form_Load()

Coklu = True

End Sub

butonla çoklu/tekli yapma

Private Sub Komut2_Click()

Coklu = -1 - (Coklu)

If Coklu = False Then

Dim Itm As Variant

    For Each Itm In Liste0.ItemsSelected

        Liste0.Selected(Itm) = False

    Next Itm

End If

End Sub

liste tıklama/seçme olayı

Private Sub Liste0_Click()



If Coklu = 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

---

istenirse buton tıklama olayına tek seçim yap/çoklu seçim yap gibi buton başlığı da eklenebilir
Aslında değişkene bile gerek yok doğrudan buton yazısına göre de işlem yapılabilir.