حرکت متن در لیبل (به صورت زیرنویس)

اگه میخواین که متن لیبل تون به صورت افقی (مثل زیرنویس ها) حرکت کنه، کتابخونه های JavaObject و StringUtils رو تیک بزنید و سپس این تابع رو اضافه کنید:

Sub Marquee(lbl As Label)
lbl.SingleLine = True
lbl.Ellipsize = "MARQUEE"
Sleep(10)
Dim jo As JavaObject = lbl
jo.RunMethod("setSelected", Array(True))
End Sub

به این شکل میتونین از تابع استفاده کنین:

Dim lbl As Label
lbl.Initialize("lbl")
lbl.Text="یاهو 98 ، یک کانال در حوزه برنامه‌نویسی B4X است! 👨‍💻🚀در این کانال به صورت هفتگی آموزش‌های کاربردی و کمیاب، تکه کدها، سورس، کتابخانه و... قرار می‌گیرد."
lbl.TextColor=Colors.Black
lbl.TextSize=14
lbl.Gravity=Gravity.CENTER_VERTICAL
Activity.AddView(lbl,0%x,90%y,100%x,10%y)

Marquee(lbl)

اگه متن لیبل انگلیسی باشه متن از راست به چپ و اگه فارسی باشه از چپ به راست حرکت خواهد کرد.