JGuardón dice bien. Tampoco trabaja bien con fechas si no es en formato anglosajón, etc.

Es mejor hacer una clase propia como esta

'heredar textbox
inherits textbox


'añadir una propiedad tipo con unos valores específicos. Según este valor admitirá números, fechas, ..., etc
dim $Tipo as integer 'crear una propiedad tipo 1-> numeros 2 -> fechas 3 -> telefono 4 -> direcciones
dim Tipo as integer

private sub Tipo_Read()
return $Tipo

public sub Tipo_Write(value as integer)
$Tipo=value
end

'igualmente debería añadir algunas propiedades mas y por último modificar el evento keypress del textbox inherente para que según $Tipo utilice una rutina para comprobar números o fechas o lo que sea. Algo como esto:

event keypress() 'programación del evento keypress
select case $Tipo
case 1:
solonumeros()
case 2:
fechas()
case 3:
telefonos()
case 4:
direcciones()
end select


Solo que nunca he sustituído un evento por otro y aunque recuerdo haber leído algo al respecto en gambasdoc ahora mismo no recuerdo como se hacía esto pero no era dificil. Solo era heredar con un - de prefijo o algo así.

Creo que era aquí
Componentes
Y según eso había que declarar un _iscontrol=true y algunas cosas mas. Nada del otro jueves, pero ahora estoy con la cabeza en otra parte y no tento tiempo. A ver si mañana puedo mirarlo mejor.

Un saludo