El programa de diseño VB se mueve hacia la parte inferior izquierda y superior derecha.

Durante el proceso de compilación, el control Label1 puede moverse hacia arriba, abajo, izquierda, derecha y diagonalmente en el formulario a voluntad. Coloque un control Label1 en el formulario y coloque dos botones titulados "Manual" y "Auto".

Análisis:

Mover etiqueta 1 . top = etiqueta 1 - tamaño del paso superior.

Mover etiqueta 1 . arriba = etiqueta 1 arriba + bajar.

Desplazamiento a la izquierda label1.left = label1.Tamaño del paso a la izquierda.

Mover etiqueta 1 a la izquierda = etiqueta 1 a la izquierda+paso a la derecha.

Tilt shift: combinación de arriba, abajo, izquierda y derecha al mismo tiempo.

Ejemplo: texto1 ingresa el tamaño del paso, 'etiqueta' determina la dirección, por ejemplo, etiqueta superior=1, etiqueta inferior=-1.

Sub privado MyMove(% de etiqueta ByVal)

Etiqueta1. Arriba = Etiqueta1. Arriba + etiqueta * Val(Texto1)

Etiqueta1. izquierda = Etiqueta1. Izquierda + etiqueta * Val(Text1)

Conector final

Automático

Subtemporizador privado 1_Timer()

Llamar a MyMove( etiqueta )

Conectores finales

Pautas

Subcomando privado 2_Click()

Temporizador1. Enabled=false

Llamar a MyMove(label)

Conector final

Espero que esto ayude.