Ver Mensaje Individual
  #2 (permalink)  
Antiguo 21/01/2005, 13:56
RadicalEd
 
Fecha de Ingreso: octubre-2004
Ubicación: COLOMBIA
Mensajes: 240
Antigüedad: 19 años, 7 meses
Puntos: 3
Código:
Sub Text1_Keypress(KeyAscii As Integer)
    If KeyAscii <> Asc("9") Then
       If KeyAscii <> 8 Then
           KeyAscii = 0
       End If
    End If
End Sub