[سعود]

كود :

Dim pat As New Regex(lbl.Text)        
Dim m As Match = pat.Match(all.ToString)
        If m.Success Then
            MsgBox("found")
        Else
            MsgBox("NO")
        End If

طيب اخواني من يعدل على الكود هذا بحيث يبحث عن كامل الجملة؟