Бегущая строка - VB (62765)

Формулировка задачи:

Доброго времени суток! Вопрос гуру Visual Basic Подскажите пожалуйста как сделать бегущую строку поверх всех блоков на форме. Строка реализована через таймер в виде рандомного отображения на теле формы.

Option Explicit
Dim blnFlag As Boolean
Dim lngPosX As Long, lngPosY As Long
Const RUNSTR = "Text"
 
Private Sub Form_Load()
 
    AutoRedraw = True
    With Font
        .Name = "Times New Roman Cyr"
        .Bold = True
        .Size = 12
    End With
    lngPosX = ScaleWidth
    lngPosY = (ScaleHeight - TextHeight(RUNSTR)) / 2
    Randomize
   
End Sub
 
Private Sub tmrMove_Timer()
    Cls
    CurrentY = lngPosY
    CurrentX = lngPosX
    Print RUNSTR
    lngPosX = lngPosX - 50 
    If lngPosX <= -TextWidth(RUNSTR) Then
        lngPosX = ScaleWidth
        Font.Size = Int(41 * Rnd + 8)
        lngPosY = Int((ScaleHeight - TextHeight(RUNSTR) + 1) * Rnd)
        ForeColor = QBColor(Int(16 * Rnd))
    End If
 
End Sub

Решение задачи: «Бегущая строка»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim blnFlag As Boolean
Dim lngPosX As Long, lngPosY As Long
Const RUNSTR = "text"
 
Private Sub cmdStartStop_Click()
blnFlag = Not blnFlag
tmrMove.Enabled = blnFlag
Select Case blnFlag
Case True
    cmdStartStop.Caption = "Стоп"
Case False
    cmdStartStop.Caption = "Старт"
End Select
End Sub
Private Sub Label1_Click()
 AutoRedraw = True
    With Font
        .Name = "Times New Roman Cyr"
        .Bold = True
        .Size = 12
    End With
    lngPosX = ScaleWidth
    lngPosY = (ScaleHeight - TextHeight(RUNSTR)) / 2
    Randomize
Label1.BackStyle = vbTransparent
Print RUNSTR
End Sub
 
Private Sub tmrMove_Timer()
    Cls
    CurrentY = lngPosY
    CurrentX = lngPosX
    Label1.Left = lngPosX
    lngPosX = lngPosX - 50
    Label1.Caption = RUNSTR
    If lngPosX <= -TextWidth(RUNSTR) Then
      Label1.Top = Int((ScaleHeight - TextHeight(RUNSTR) + 1) * Rnd)
        lngPosX = ScaleWidth
        Label1.Font.Size = Int(41 * Rnd + 8)
        Label1.ForeColor = QBColor(Int(16 * Rnd))
    End If
End Sub
                        