VB fallo con while y fechas

[rafapaskual]

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!