¿Cómo implementar VB para mover etiquetas hacia adelante y hacia atrás de izquierda a derecha?

Dim mMove As Long 'Define la variable del paso de movimiento de la etiqueta Private Sub Form_Load()

mMove = 100 'Establece el paso de movimiento

End SubPrivate Sub Timer1_Timer ()

'Determina si la etiqueta alcanza los límites izquierdo y derecho,

'Si la izquierda de la etiqueta más el paso de movimiento es menor que 0,

'Si el paso izquierdo de la etiqueta más el paso en movimiento es menor que 0, se considera que la etiqueta ha alcanzado el límite izquierdo

'Si el paso izquierdo de la etiqueta más el paso en movimiento es mayor que el ancho del formulario menos el ancho de la etiqueta misma, se considera que la etiqueta ha alcanzado el borde derecho

'Si la etiqueta ha alcanzado los bordes izquierdo y derecho.

"Si la etiqueta 1 alcanza los límites izquierdo y derecho, los pasos en movimiento son opuestos a ella.

Si Label1.Left mMove lt; = 0 o Label1.Left mMove gt; = Me.Width - Label1.Width, luego mMove = -mMove

'Deje que la izquierda de la etiqueta se agregue al paso de movimiento para que la etiqueta se mueva

Label1.Left = Label1.Left mMove

Fin Sub

================================ ======= ==== Crea un nuevo proyecto con una etiqueta y un control de temporizador