فقط کد را کپی کنید
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, 8, 13
Case Else: KeyAscii = 0
End Select
end sub
و این هم فقط برای زبان فارسی هست
Private Sub Text2_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 129 To 237, 8, 32
Case Else: KeyAscii = 0
end sub
