01/08/2003, 15:36
|
 | | | Fecha de Ingreso: mayo-2002 Ubicación: Lima, Peru
Mensajes: 4.619
Antigüedad: 22 años, 11 meses Puntos: 7 | |
| Que tal asi?
Sub Text1_Keypress(keyascii as integer)
keyascii=asc(ucase(chr(keyascii)))
End Sub
para convertir a minusculas seria lcase
__________________
No tengo firma ahora... :( |