![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
20/09/2003, 19:17
|
| | Fecha de Ingreso: septiembre-2003
Mensajes: 172
Antigüedad: 21 años, 4 meses Puntos: 0 | |
Hola, supongo que te refieres a que no parece que la linia se mueva. Si es eso prueba a esto
Do While linea2.X2 < xFinal
linea2.X2 = linea2.X2 + 400
'form1 es el nombre del formulario que tengas
form1.refresh
'Sleep 120
fechaAhora = Now
fecha = fechaAhora + 0.00001
Do While fechaAhora <= fecha
fechaAhora = Now
Loop
Loop
Luego puede ser que te de problemas si llamas dos veces a la funcion, porque estas intentando añadir a los controles el mismo control cada vez que llamas
Set linea2 = Controls.Add("VB.line", "linea2")
Espero haberte sido útil. Saludos y Suerte!
__________________ Sr.Propio |