Restringir Teclado.

Hola,
Quería saber cual es la mejor manera (el código más corto) para que en un
TextBox solo se puedan escribir letras (mayusculas y minusculas) y se

precionar los botones, <Retroceso>, <Tab>,<Enter>,Ñ,ñ,<Espacio>
y todas las vocales con tilde (á,é,í,ó,ú.ÁÉÍÓÚ).
Yo lo hice pero me quedó muy largo y repeitivo:

Private Sub txt1_KeyPress(KeyAscii As Integer)

If KeyAscii > 90 Then
If ( _
KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 180 And _
KeyAscii <> 193 And KeyAscii <> 201 And KeyAscii <> 225 And _
KeyAscii <> 233 And KeyAscii <> 205 And KeyAscii <> 237 And _
KeyAscii <> 211 And KeyAscii <> 243 And KeyAscii <> 241 And _
KeyAscii <> 209 And KeyAscii <> 250 And KeyAscii <> 218 Then _
KeyAscii = 0
ElseIf KeyAscii < 65 And KeyAscii <> 8 And KeyAscii <> 9 And _
KeyAscii <> 10 And KeyAscii <> 32 Then
KeyAscii = 0
End If
End Sub

Si es posible, además que se pueda evitar de alguna manera la incersión de
caracteres en el TextBox mediante el bóton derecho del mouse.
Gracias.

Quería saber cual es la mejor manera (el código más corto) para que en un
TextBox solo se puedan escribir letras (mayusculas y minusculas) y se

precionar los botones, <Retroceso>, <Tab>,<Enter>,Ñ,ñ,<Espacio>
y todas las vocales con tilde (á,é,í,ó,ú.ÁÉÍÓÚ).
Yo lo hice pero me quedó muy largo y repeitivo:

Public Sub ModoMayusculas(ByVal hWndTextBox As Long)
SetWindowLong hWndTextBox, -16, GetWindowLong(hWndTextBox, -16) Or &H8&
End Sub

Public Sub ModoMinusculas(ByVal hWndTextBox As Long)
SetWindowLong hWndTextBox, -16, GetWindowLong(hWndTextBox, -16) Or &H10&
End Sub

Para utilizarlas, en el evento «Load» del formulario:

odoNumerico txtAño.hWnd
ModoMayusculas txtCodigoArticulo.hWnd
ModoMinusculas txtEMail.hWnd

Si es posible, además que se pueda evitar de alguna manera la incersión de
caracteres en el TextBox mediante el bóton derecho del mouse.

Private Sub Text1_GotFocus()
Clipboard.Clear
End Sub

Hola Anibal,

Para deshabilitar la opción del menu contextual, no estoy seguro. Pero si
borrar el contenido del portapapeles (Clipboard), como te propuse
anteriormente, no tiene caso que la deshabilites, pues no habra nada que
"pegar"

Private Sub Text1_GotFocus()
Clipboard.Clear
End Sub

Espero te sirva mi propuesta.

Alberto Román