[Anas Mahmoud]

استخدم حدث TextChanged و Regex.Replace لاستبدال اي شيء ليس بحرف عربي او انجليزي او مسافة بنص فارغ

كود :

   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       Dim Txt As TextBox = sender
       Txt.Text = Regex.Replace(Txt.Text, "[^\u0621-\u064Aa-zA-Z\s]", "")
   End Sub

لا تنس 

كود :

Imports System.Text.RegularExpressions

المدي [^\u0621-\u064Aa-zA-Z\s] يمثل اي شيء لبس بحرف عربي ( في الامر تفصيل ) وكذلك ليس بحرف انجليزي ولا حرف مسافة ( مسافة عادية او TAB او سطر جديد )