Soru Buton ile Listbox'da Seçim Yapma ve Seçimi Kaldırma

[likaba]

Merhabalar,

"Tümünü Seç" ve "Tümünü Kaldır" düğmelerini kullanarak Listbox2'de işlem yapmak istiyorum. Bunu nasıl gerçekleştirebilirim?

 

[Ziynettin]

Seçili yapar.

Private Sub OptionButton1_Click()
    If OptionButton1 = True Then
        For i = 0 To ListBox2.ListCount - 1
            ListBox2.Selected(i) = True
        Next i
    End If
End Sub

Seçimi Kaldırır.

Private Sub OptionButton2_Click()
    If OptionButton2 = True Then
        For i = 0 To ListBox2.ListCount - 1
            ListBox2.Selected(i) = False
        Next i
    End If
End Sub

 

[likaba]

Seçili yapar.

Private Sub OptionButton1_Click()
    If OptionButton1 = True Then
        For i = 0 To ListBox2.ListCount - 1
            ListBox2.Selected(i) = True
        Next i
    End If
End Sub

Seçimi Kaldırır.

Private Sub OptionButton2_Click()
    If OptionButton2 = True Then
        For i = 0 To ListBox2.ListCount - 1
            ListBox2.Selected(i) = False
        Next i
    End If
End Sub

Çok teşekkür ederim Ziynettin Bey