منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

هذا الكود يجلب النص مالت 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 )