Option Explicit

Public Function marquee(text As String) As String
Static i As Integer
i = i + 1
If i > Len(text) Then
i = 1
End If
marquee = Mid(text, 1, i)
End Function

Private Sub Timer1_Timer()
Command1.Caption = marquee("Pellesoft.nu")
End Sub