'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