[Tasos]

Αντώνη, δημιούργησε μια ετικέτα με το όνομα LblScrollText
και στη λειτουργική μονάδα της φόρμας βάλε:

Private ScrollText As String

Private Sub Form_Timer()
    ScrollText = Mid(ScrollText, 2, (Len(ScrollText) - 1)) & Left(ScrollText, 1)
    Me.LblScrollText.Caption = ScrollText
End Sub

Private Sub Form_Load()
    ScrollText = "Παράδειγμα κυλιόμενου κειμένου στην Access" & Space(15)
    Me.TimerInterval = 300
End Sub

Φτιάξε τις διαστάσεις της ετικέτας έτσι που να χωράει ένας χαρακτήρας στο πλάτος.
Μπορείς αν θέλεις να αλλάξεις την ιδιότητα της ετικέτας "Κατακόρυφο" σε Ναι.

Φιλικά

Τάσος