Ver Mensaje Individual
  #3 (permalink)  
Antiguo 21/05/2005, 15:37
MaxExtreme
 
Fecha de Ingreso: abril-2005
Mensajes: 3.083
Antigüedad: 19 años, 6 meses
Puntos: 17
Código:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = Asc(".") Then KeyAscii = Asc(",")
End Sub
¿Veis? Yo también se dar ejemplos...