Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Private Sub Text1_KeyPress(KeyAscii As Integer) SoloLetras KeyAscii End Sub
Public Sub SoloLetras(CodigoAscii As Integer) Select Case Chr(CodigoAscii) Case "a" To "z", "A" To "Z" 'Permito la tecla de Retroceso Case Chr(8) Case Else CodigoAscii = 0 End Select End Sub