Alguien Puede Hacer Que No Se Pare Un Label

[onelar]

Hola amigos:

Estoy haciendo el siguiente proyecto:

Un label que tiene que ir bajando por el form, y cuando llega a cierto punto, vuelve a salir por donde se inició.

El código que he creado es el siguiente:

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

TextBox1.Text = Time

If Z <> 300 Then

Z = Z + 1

Label1.Visible = True
Label1.Caption = Time
Label1.Move 100, Z, , , True

Else

Z = 0

Label1.Move 100, Z, , , True

End If

Bien en un principio, el label se mueve como yo quiero, pero cuando dejo de mover el ratón, este se para.

ALGUIEN me puede decir a que o como lo puedo asociar, para que el label no se pare nunca de mover.

Como siempre, esta programación es en Visual Basic para Aplicaciones.

MUCHAS GRACIAS POR VUESTRO TIEMPO.

P.D. Al anterior amig@ que me dio respuesta a mi anterior pregunta, le doy las gracias y que me valió.

UN SALUDO.

[fonsypool]

Puedes usar un Timer con un bucler infinito

While true
...codigo del label
wend

[fonsypool]

Puedes usar un Timer con un bucle infinito

While true
...codigo del label
wend

[Geri]

La idea de fonsypool es muy buena. Debes utilizar un evento distinto a MouseMove. Este evento solo funciona cuando mueves el ratón. Si dejas de moverlo, no se produce dicho evento y por eso deja de moverse el label