Dim r As Reflector
r.Target = Label
r.RunMethod2("setLines", 1, "java.lang.int")
r.RunMethod2("setHorizontallyScrolling", True, "java.lang.boolean")
r.RunMethod2("setEllipsize", "MARQUEE", "android.text.TextUtils$TruncateAt")
r.RunMethod2("setHorizontalFadingEdgeEnabled", True, "java.lang.boolean")
r.RunMethod2("setMarqueeRepeatLimit", "-1", "java.lang.int")
r.RunMethod2("setSelected", True, "java.lang.boolean")