Visual Basic 6 - scroll testo in label

Salve, avrei bisogno di fare un programma che dovrebbe imitare una lavagna luminosa. in pratica il form a tutto schermo senza bordi con lo sfondo nero e una label in cui scorre il testo. per mettere il form a tuttoo schermo uso questo codice:
in un modulo

Public Function FullScreen(obj As Object) As Boolean
obj.Height = Screen.Height
obj.Width = Screen.Width
obj.Left = 0
obj.Top = 0
End Function

nel form

FullScreen Me

per fare scorrere il testo uso questo codice:
in una class

Public Function scScrollMe(scMessage$, scWantedTime%)
On Error Resume Next
Dim scFirst&, scCompare&, scTemp$, scCount%, u$
    u = scMessage
    Form1.Label1.Caption = scMessage
    Do
        scCount = scCount + 1
        DoEvents
        scFirst = GetTickCount
        Do Until (GetTickCount - scFirst) >= scWantedTime
            DoEvents
        Loop
        scMessage = Right(scMessage, Len(scMessage) - 1)
        scTemp = scMessage
        If scTemp = "" Then
            scMessage = Space(2) & u
            scTemp = Space(2) & scMessage
            scCount = 0
        End If
        scTemp = scTemp & Space(3) & Left(u, scCount)
    Form1.Label1.Caption = scTemp
        DoEvents
    Loop
End Function

nel form

Set blBlink = New scrolling
blBlink.scScrollMe Text1.Text, "500"

in pratica io prima metto il form a tutto schermo di colore nero e poi voglio che nella label1 scorra il testo inserito nella text1. il problema è che appena ho aggiunto il codice per far scorrere il testo, quando eseguo il programma non mi appare lo sfondo nero, ma non mi da nemmeno un errore... come posso risolvere??Grazie!!

ti potresti anche creare tu una funzione non mi sembra molto difficile gioca soprattutto su la funzione rigth()

Ho risolto, potete chiudere