Listboxdan ListView' e geçiş

[sirkülasyon]

UserForm_Initialize
bul = Sheets("OKULLAR").Range("B1:L1")
ListBox1.ColumnCount = UBound(bul)
ListBox1.List = Application.Transpose(bul)

Private Sub ListBox1_Click()
ListBox2.Clear
With Sheets("OKULLAR")
sutun = .Range("b1:L1").Find(ListBox1.Value, , , 1).Column
son = .Cells(65536, sutun).End(3).Row
For i = 2 To son
ListBox2.AddItem .Cells(i, sutun).Value
Next i
End With
End Sub

Es Selamün Aleyküm
ListBox1>>>> ListView2
ListBox2>>>> ListView3

olacak şekilde nasıl değiştirebilirim?