Public Sub MarqueeText(DisplayField As Object, LimitTo As Int)
Dim Ref As Reflector
Ref.Target = DisplayField
Ref.RunMethod2("setLines", 1, "java.lang.int")
Ref.RunMethod2("setHorizontallyScrolling", True, "java.lang.boolean")
Ref.RunMethod2("setEllipsize", "MARQUEE", "android.text.TextUtils$TruncateAt")
Ref.RunMethod2("setSelected", True, "java.lang.boolean")
If LimitTo == 0 Then
LimitTo = -1
End If
Ref.RunMethod2("setMarqueeRepeatLimit", LimitTo, "java.lang.int")
End Sub