12/07/2003, 21:52
|
| | | Fecha de Ingreso: julio-2003 Ubicación: Buenos Aires/Capital Federal
Mensajes: 181
Antigüedad: 21 años, 9 meses Puntos: 0 | |
| aca te mando un codigo que creo que te puede servir,
lo acabo de probar y funciona.
Private Sub Form_Load()
'para este ejemplo poner en 0 la propidad index del control.(crealo en tiempode diseño)
'Generamos dos controles más
For x = 1 To 2
'Cargamos el control
Load Text1(x)
'le asignamos sus propiedades
Text1(x).Top = Text1(x).Height * x + 100
'simmpe se le suma como minimo 100 a culquier control
'que generez o cambies el tamaño. Eso es así porque
'todos los controles y sobretodo los 3D tienen un borde
'Al ancho se lo multiplica *x
'para que tome la propiedad top por c/u.
'lo hacemos visible
Text1(x).Visible = True
Next
End Sub
__________________
No se puede inventar un sistema a prueba de tontos, porque los tontos son muy ingeniosos.
|