Sub SetScrollbarColor(sv As ScrollView, clr As Int)
Dim r As Reflector
r.Target = sv
r.Target = r.GetField("mScrollCache")
r.Target = r.GetField("scrollBar")
Dim cd As ColorDrawable
cd.Initialize(clr, 5dip)
r.RunMethod4("setVerticalThumbDrawable", Array(cd), Array As String("android.graphics.drawable.Drawable"))
End Sub