17/08/2006, 05:38
|
 | | | Fecha de Ingreso: junio-2006 Ubicación: Buenos Aires, Argentina
Mensajes: 53
Antigüedad: 18 años, 10 meses Puntos: 0 | |
| otra opcion
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
ElseIf KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End If
End Sub
saludos |