06-11-12, 11:29 PM
نحمده ونصلي على رسوله الكريم
كود :
[align=left]Dim str1 As String = "my name is Ismail"
Dim str2 As String = "your name is Ahmed"
For Each str As String In str1.ToLower().Split(New Char() {" "})
If str2.ToLower().IndexOf(str) > -1 Then MessageBox.Show(str)
Next
[/align]