Userform multiselect Listbox click event

[tamer42]

Merhaba,
ekli dosya Userform' da multiselect Listbox mevcut,

Listbox' ta click event çalışmıyor, Listbox' ta en son tıklanan satırın numarasını nasıl alabilirim?
bu konuda nasıl bir çözüm önerirsiniz?

desteğiniz için şimdiden teşekkür ederim.
iyi Akşamlar.

Private Sub ListBox1_Click()
Dim ki As Integer

ki = Me.ListBox1.ListIndex

MsgBox ki

End Sub

 

[FERAZ]

Mouseup yada down denediniz mi?

 

[Haluk]

"Change" olayını kullanacaksınız...

Private Sub ListBox1_Change()
    Dim ki As Integer

    ki = ListBox1.ListIndex

    MsgBox ListBox1.ListIndex
End Sub

.