محدود کردن به حروف فارسی و انگلیسی

Select Case UCase(e.KeyChar)
Case "ا" To "ی", Chr(Keys.Back), "A" To "Z", Space(1)
Case Else
e.Handled = True
End Select

محدود کردن به اعداد

Select Case e.KeyChar
Case Chr(Keys.Back), "0" To "9"
Case Else
e.Handled = True
End Select

در این ویدئو نحوه محدود کردن TextBox (جعبه متن) برای حروف انگلیسی، فارسی و یا اعداد آموزش داده می شه ....

https://aparat.com/v/CHSGg