'Como hacer un scroll horizontal con una linea de texto 1. Crear un nuevo proyecto en Visual Basic, por defecto Form1 2. Añadir un control Picture Box 3. Añadir un control de tiempo Timer1 por defecto, en propiedades Interval fijar a 250

'. Añadir el siguiente codigo a timer1

 Private Sub Timer1_Timer()
    ShowMessage
 End Sub

'. Crear un función llamarla ShowMessage().
' Añadir el siguiente codigo a la función:


Sub ShowMessage()
    Static MsgPtr As Integer
    Static MyText As String
    If Len(MyText) = 0 Then
        MsgPtr = 1
        MyText = "Saludos desde Trucos y Atajos en Visual Basic!"
    End If
    Picture1.Cls
    Picture1.Print Mid$(MyText, MsgPtr); MyText;
    MsgPtr = MsgPtr + 1
    If MsgPtr > Len(MyText) Then
        MsgPtr = 1
    End If
End Sub