ListBoxta Seçili Satır Sayısını Bulma

[Feylosof]

iyi bayramlar diliyorum herkese
MultiSelect özelliği aktif olan bir ListBoxta kaç tane satırın seçili olduğunu bulmak istiyorum. Yardımınız için şimdiden teşekkürler

 

[dEdE]

Dener misiniz?

Private Sub CommandButton1_Click()
For x = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(x) =True Then
      say = say + 1
    End If
Next
    MsgBox "ListBox'ta " & say & " satır seçili.", vbInformation, "BİLGİ"
End Sub

 

[Feylosof]

Sayın @dEdE çok teşekkür ederim. Kısa ama zihin açıcı bilgi oldu.