After filling text, textcolor etc. add
Label1.SingleLine = True
Label1.Ellipsize = "MARQUEE"
Dim jo As JavaObject = Label1
Sleep (0)
jo.RunMethod ("setSelected", Array (True))
Without Sleep scrolling will not work.
There are additional useful properties. For example:
jo.RunMethod ("setMarqueeRepeatLimit", Array (-1))
jo.RunMethod ("setFreezesText", Array (False))