[معاند الحظ]

اخي استخدم الكود التالي 
فهو يقوم بنسخ النص الموجود في تكستبوكس التشكيل ويحفظه في متغير
ثم يقوم بازالة التشكيل من هذا النص 
ثم يقارن بين النصين ويعرض النتيجة

كود :

 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'انسخ النص المشكل الى هذا المتغير
        Dim str = txt1.Text

        ' to be replaced characters
        Dim tashkeel = New Char() {"ِ"c, "ُ"c, "ٓ"c, "ٰ"c, "ْ"c, "ٌ"c, "ٍ"c, "ً"c, "ّ"c, "َ"c}

        'الان قم بازالة التشكيل من النص المنسوخ

        For Each c In tashkeel
            str = str.Replace(c.ToString(), "")
        Next

        'الان قم بالمقارنة  
        If str = txt2.Text Then
            MsgBox("found")
        Else
            MsgBox("not found")

        End If

    End Sub