03/05/2006, 10:55
|
 | | | Fecha de Ingreso: junio-2005 Ubicación: Somewhere between Heaven and Hell
Mensajes: 415
Antigüedad: 19 años, 10 meses Puntos: 0 | |
| Probá esto, solo poné un text1 y un command1:
Private Sub Command1_Click()
Text1.Text = UCase(Text1.Text)
End Sub
Para pasar a minúsculas cambiá UCase por LCase.
Salu2!
__________________
diegoz.com.ar |