06/09/2005, 08:19
|
 | | | Fecha de Ingreso: agosto-2004 Ubicación: Santa Rosa, La Pampa, Argentina
Mensajes: 1.484
Antigüedad: 20 años, 8 meses Puntos: 13 | |
| Hola! Otra manera es utilizar el siguiente código:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 Then 'Esto es para que te deje usar el BackSpace
KeyAscii = 0
End If
End If
End Sub
Espero que te sirva.
Saludos. Lucas |