Visual Basic - Como hacer el efecto de desplazamiento de titulo

Buen dia.

Necesito URGENTEMENTE una rutina para efectuar un efecto de desplazamiento de un texto o titulo en un Formulario. Especificamente un efecto que se paresca al efecto de marquezina que posse Windows para mostrar titulos y mensajes en el protector de pantallas.

Si alguien posee una rutina parecida para ejecutar este efecto en un formulario de visual basic, se lo sabria agradecer.

Gracias.

Programador: Gustavo Gil.

Pon un timer y un label y pon el siguiente código, el texto del label debe desplazarse

Private Sub Timer1_Timer()
If Label1.Left < -4290 Then
Label1.Left = 6000
Else
Label1.Left = Label1.Left - 30
End If
End Sub