Cómo programar en VB para mover el formulario hacia la izquierda y hacia la derecha en la pantalla

Añade un temporizador, el temporizador se mueve y regresa automáticamente cuando supera la pantalla.

El código es el siguiente: Dim?M?As?Integer?'Definir variables y determinar la dirección del movimiento

Private?Sub?Form_Load()

Timer1.Interval? =?200?'¿Tiempo de movimiento?Mover una vez en 0,2 segundos

Me.Left?=?0?'El espacio izquierdo es inicialmente 0

M?=? 0?'El valor predeterminado es moverse primero Mover hacia la derecha

Fin?Sub

Private?Sub?Timer1_Timer()

If?(Me.Left? ? Me.Width)?gt;?Screen .Width?Then?M?=?1?'Mover a la cabeza derecha, mover a la derecha

Si?Me.Left?lt；=?0? Entonces?M?=?0?'Mover cabeza hacia la izquierda, mover hacia la izquierda

Si?M?=?0?Entonces?'Dirección de movimiento

Me.Left?=? Yo.Izquierda? ?1000?' Mover a la derecha

Si no

Me.Left?=?Me.Left?-?1000?'Mover a la izquierda

Fin ?Si

Fin?Sub