[سامي محمد]

وعليكم السلام
تفضل

كود :

 Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        e.Handled = System.Text.RegularExpressions.Regex.IsMatch(e.KeyChar, "[إآأ]")
    End Sub