'* Permite el Ingreso de solo numeros Private Sub txtNumeros_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 8, 46, 48 To 57 KeyAscii = Asc(UCase(Chr(KeyAscii))) Case Else KeyAscii = 0 End Select End Sub
'* Permite el Ingreso de solo letras Private Sub txtLetras_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 65 To 122 KeyAscii = Asc(UCase(Chr(KeyAscii))) Case Else KeyAscii = 0 End Select End Sub