VB le pide a un texto que se mueva hacia la izquierda y hacia la derecha rápida o lentamente a través de los botones. Y el texto cambiará continuamente de color automáticamente a medida que se mueve.

Dim nSpeed ​​​​As Long 'Velocidad de movimiento

Dim nFlag As Integer 'Bandera de dirección de movimiento

Subcomando privado1_Click()

nSpeed ​​​​= 200

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

nSpeed ​​​​= 100

Timer1.Enabled = True

Fin Sub

Subcomando privado3_Click()

nVelocidad = 0

Timer1.Enabled = False

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

'ALT F5 cierra el formulario

Si KeyCode = vbKeyF5 y Shift = vbAltMask entonces

Descargarme

Finalizar si

Fin Sub

Sub privado Form_Load()

'Propiedades de control

Label1.Caption = "Este es el texto de prueba"

Label1.AutoSize = True

Command1 .Caption = "Mover rápidamente"

Command2.Caption = "Mover lentamente"

Command3.Caption = "Dejar de moverse"

Timer1.Enabled = False

nFlag = 1

Me.KeyPreview = True 'Se requiere ALT F5 para cerrar el formulario

End Sub

Private Sub Timer1_Timer( )

If Label1.Left lt; = 0 Then 'Generar marca de movimiento hacia la derecha cuando el borde izquierdo

nFlag = 1

ElseIf Label1.Left Label1.Width gt ; Me.Width Then 'Cuando el borde derecho Etiqueta a la izquierda

nFlag = -1

End If

Label1.Left = Label1.Left nSpeed ​​​​* nFlag 'Utilice etiquetas aquí para controlar los cambios en el atributo Izquierda

End Sub