17/11/2005, 18:20
|
| | | Fecha de Ingreso: septiembre-2005
Mensajes: 76
Antigüedad: 20 años, 1 mes Puntos: 0 | |
| Dim Contador As Integer
Texto = Text1.Text ' cadena string
For Contador = 1 To Len(Texto)
Text2.Text = text2.text & " " & Mid(Texto, Contador, 1) + "[Añadir]"
Next Contador
__________________
Buby Systems |