[DK-x]

مرحبا  
عندي ليست بوكس بيه 100 Line ع سبيل المثال
واحد منهن يحتوي ع كلمة Google اريد كود بحيث
يجلب النص مالت Line كله او يجلب ListBox1.SelectedIndex لل Line الي بيه كلمة Google
اتمنى افتهمتوا قصدي

[بدري]

هذا الكود يجلب النص مالت Line كله لل Line الي بيه كلمة Google

Dim s = "google"
Dim r As String = ""
For Each a As String In ListBox1.Items
   If a.ToLower.Contains(s.ToLower) Then
       r = a
       Exit For
   End If
Next

MsgBox ( r )

[DK-x]

ثانكس