[الدريساوي]

السلام عليكم تفضل اخي ابوجاسم

'كود كاتبة الحروف العربية فقط في التكست مع استخدام زر المسح والتراجع والمسافة


        Select Case e.KeyChar
            Case "ء" To "ي", ControlChars.Back, Chr(Keys.Space)
                e.Handled = False
            Case Else
                e.Handled = True
        End Select


        'كود الانتقال الى تكست بزر انتر

        If Asc(e.KeyChar) = 13 Then
            TextBox2.Focus()
        End If