Ver Mensaje Individual
  #6 (permalink)  
Antiguo 03/05/2006, 11:06
Bourne
 
Fecha de Ingreso: febrero-2006
Mensajes: 25
Antigüedad: 19 años, 2 meses
Puntos: 0
Private Sub Text1_Change()
Dim I As Integer
Text1.Text = UCase(Text1.Text)
I = Len(Text1.Text)
Text1.SelStart = I
End Sub


muchas gracias