Programa de subtítulos rodantes de diseño Vb

'Coloque Imagen1 en la parte superior del Formulario1, Coloque Etiqueta1 en la parte superior de la Imagen1 y Coloque el Temporizador1 en la parte superior del formulario

Opción explícita

Sub privado Form_Load()

Label1.Caption = "Windows2000"

Timer1.Enabled = True

Timer1.Interval = 10 'Ajusta este valor para controlar la velocidad de movimiento de la etiqueta 1

Imagen1.ScaleMode = 3

Yo.ScaleMode = 3

' Imagen1.ScaleMode = 3

Yo.Picture = LoadPicture("D :\bliss .jpg")

End Sub

Sub Timer1_Timer()

Si Label1. ;= 0 - Label1.Top Entonces Label1.Top = Imagen1.ScaleHeight

Etiqueta1.Top = Etiqueta1.Top - 1

End Sub