فقط كاراكترهاي فارسي

استفاده از كاراكترهاي فارسي در يك ورودي:

کد:

Private Sub PassageTxt_KeyPress(KeyAscii As Integer)
If KeyAscii >= 199 And KeyAscii <= 237 Or KeyAscii = 32 Or KeyAscii = 8 Then
  PassageTxt.Text = PassageTxt.Text & Chr(KeyAscii)
End If
End Sub