Listbox2' e tıklayınca veriler textboxlara düşmüyor??

[bistroman]

Private Sub ListBox2_Click()
Dim i As Integer
Range("IT2").Select
satir = Range("IT2").End(xlDown).Row
For i = 0 To satir
If ListBox2.Selected(i) = True Then (buranın üzerine mouse ile geldiğimde " ListBox2.Selected(i) = False diyor) hayrettttttt yaaa???

TextBox1 = ListBox2.List(i, 0) -- (burası çalışıyor) Listbox2'e tıklayınca textbox1'e bilgi akıyor.

TextBox2 = ListBox2.List(i, 1) -- burası sarı renkle işaretli..sorun burada...
TextBox3 = ListBox2.List(i, 2)
'TextBox1 = ActiveCell.Value

End If
Next

benim listbox 3 kolonlu tanımlı...ve 3 kolonda görünüyor...