[thevirus]

شكرا ابراهيم
قمت بتحميل مشروعك ونسخت الكود للتسهيل سأقوم بوضعه هنا:

كود :

Dim splite As String = TextBox3.Text
       If TextBox3.Text.Trim = "" Then

           splite = " "
       Else
           splite = TextBox3.Text.Trim
       End If

       Dim xx() As String = TextBox1.Text.Split(splite)
       Dim RR() As String = TextBox2.Text.Split(splite)
       Dim f As Integer = 0
       Label1.Text = xx.Count
       Label2.Text = RR.Count
       For Each x As String In xx
           If RR.Contains(x) Then
               f += 1
               Label3.Text = "عدد الكلمات المتشابهه " & f
           End If
       Next