Por Eduardo Olaz

Como crear un efecto marquesina en un Form


Option Explicit
Const consngVelocidad As Single = 5

Private Sub Form_Open(Cancel As Integer)
    TimerInterval = 1000 / consngVelocidad
End Sub

Private Sub Form_Timer()
    lblMarquesina.Caption = RotaCadena(lblMarquesina.Caption, 1)
End Sub

Private Function RotaCadena( _
                Cadena As String, _
                Optional ByVal Elementos As Long = 1) _
                As String
    Dim lngCadena As Long
    lngCadena = Len(Cadena)
    RotaCadena = Mid(Cadena, Elementos + 1) _
                & Left(Cadena, Elementos)
End Function