''' Bu kod ile ftp den liste veri cekiyorum

Dim a As String, b, c() As String
a = Inet2.OpenURL("www.xxx.com")

For Each b In Split(a, vbCrLf)

c = Split(b, "-")
For i = 0 To 2
List(i).AddItem c(i)
Next i
'For i = 0 To 3
List(i).AddItem c(i)
'Next i
Next b



'''Bu kod ile arama yapıyorum

For i = son To List(0).ListCount - 1
a = InStr(1, List(0).List(i), Text1.Text, vbTextCompare)
If a 0 Then
Label3.Caption = "Arama indisi:" & Str(i + 1)
Label5.Caption = "Bulunan sayısı:" & Str(toplam + 1)
Label6.Caption = "Verdiğiniz metin, " & Trim(Str(i + 1)) & ". elemanın " & Trim(Str(a)) & ". karakterinden itibaren bulunmuştur."
List(0).ListIndex = i
son = i + 1
toplam = toplam + 1
Exit Sub
End If
Next
son = 0
toplam = 0
List(0).ListIndex = -1
Label6.Caption = "Aramanın sonuna gelindi."



'''List click eventinde tıklayınca veri cekiyor

Text2.Text = List(2).List(List(0).ListIndex)
WebBrowser6.Navigate List(3).List(List(0).ListIndex)


'''vb.net te listbox a index numarası veremedim yardımcı olurmusunuz
__________________