Saludos, se me ocurrió algo como esto...
Código vb:
Ver originalPrivate Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13
KeyAscii = 0 ' Evitar el Beep
'SendKeys "{Tab}" ' Envía un Tab (da foco al siguiente control)
Case 8
' Permitir la tecla de retroceso
Case 32
' Permitir espacio
Case 65 To 90
Case 97 To 122
Case 241, 209
' Admitir letras mayusculas
' Admitir letras minusculas
' Admitir ñ y Ñ
Case Else
KeyAscii = 0 ' Cancela la tecla presionada
Beep
End Select
End Sub
Sin embargo encontré en
http://www.recursosvisualbasic.com.a...-en-vb-net.htm un ejemplo para vb.net
Espero que te sea de utilidad