Vb diseña un programa de subtítulos continuos

'Ponga una imagen1 en el formulario Form1, coloque una etiqueta1 en la imagen1 y coloque un temporizador Timer1 en el 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 etiqueta etiqueta1

Imagen1.ScaleMode = 3

Me.ScaleMode = 3

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

Fin Sub

Sub Timer1_Timer()

Si Label1.Top lt; = 0 - Label1.Top Entonces Label1.Top = PictureHeight

Etiqueta1.Top = Etiqueta1.Top - 1

Fin Sub