ListBoxda döngüyle çoklu seçimi kaldırmak

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodlarla multiselect özelliği açık olan ListBox2 deki seçimleri kaldırayım dedim ama olmadı. Kodlar hiçbir işe yaramıyor. Seçimler olduğu gibi kalıyor.Butona tıkladığımda çoklu seçimleri nasıl kaldırabilirim ? İlgilenen arkadaşlara şimdiden teşekkürler.


For k = 0 To ListBox2.ListCount - 1
If Me.ListBox2.Selected(k) = True Then
ListBox2.ListIndex = -1
End If
Next

 

[halit3]

kod:

Dim i As Integer
For i = 1 To ListBox2.ListCount
ListBox2.Selected(i - 1) = 1
Next

Dim i As Integer
For i = 1 To ListBox2.ListCount
ListBox2.Selected(i - 1) = 0
Next

 

[excellcan]

kod:

Dim i As Integer
For i = 1 To ListBox2.ListCount
ListBox2.Selected(i - 1) = 1
Next

Dim i As Integer
For i = 1 To ListBox2.ListCount
ListBox2.Selected(i - 1) = 0
Next

Hocam teşekkürler. Emeğinize sağlık