[kslawy]

السلام عليكم ورحمة الله وبركاته

كود :

Imports System.Text.RegularExpressions


Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each itm As String In Me.ListBox1.Items
            Dim rgex As Match = Regex.Match(Me.TextBox1.Text, itm, RegexOptions.IgnoreCase)
            If rgex.Success = True Then
                MsgBox(itm & " موجودة ", MsgBoxStyle.Exclamation, "بحث")
            End If
        Next
    End Sub
End Class