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
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)