B4J Question [B4X] [XUI] Scrolling Label, Scroll with short text

Private Sub PadScrollingLabel(ScrollLabel As ScrollingLabel)
    Dim Lbl As B4XView = ScrollLabel.mBase.GetView(0).GetView(0).GetView(0)
    #if B4j
    Dim Jo As JavaObject = Lbl
    Jo.RunMethod("setEllipsisString",Array(""))
    #end if
    Dim CVS As B4XCanvas
    CVS.Initialize(MainForm.RootPane)
    Dim R As B4XRect = CVS.MeasureText(Lbl.Text,Lbl.Font)
    
    Do While R.Width < ScrollLabel.mBase.Width
        ScrollLabel.Text = ScrollLabel.Text & " "
        R = CVS.MeasureText(ScrollLabel.Text,Lbl.Font)
    Loop
    
End Sub

ScrollingLabel2.Text = "Test"
PadScrollingLabel(ScrollingLabel2)