El método y la explicación para moverse hacia arriba, abajo, izquierda y derecha en VB. Si no lo entiende, simplemente pregunte.

¿Dim?Longitud total del viaje,?Distancia de cada turno

Privado?Sub?form_load()

Etiqueta1.AutoSize?=?True:?Timer1 .Intervalo ?=?50

¿Cada turno?=?200:?Timer1.Enabled?=?True

Fin?Sub

Privado?Sub?timer1_timer ()

Longitud total del viaje?=?Me.ScaleWidth

If?Label1.Left?>=?Longitud total del viaje?Or?Label1.Left?<=?- Label1.Width? Entonces cada turno?=?-(cada turno)?' +?cada vez que cambia la distancia

End?Sub

'Si la izquierda de Label1 excede la [distancia total], entonces?Label1 se moverá hacia la izquierdaO

'Si la izquierda de Label1 es menor en [-Label1 ancho], entonces? Label1 va a la derecha

'Si solo una de las expresiones en ambos lados de [Or] es verdadera, entonces regresa y continúa ejecución 'hacia abajo'.