Sub setVerticalScrollBar(vScrollView As View)
' - displays or hides the VerticalScrollBar of the ScrollView
Dim jo = v As JavaObject ' Requires Java Object library
' - Enable the scrollbar
jo.RunMethod("setVerticalScrollBarEnabled", Array As Object (True))
' - Don't let Scrollbar fade
Dim iTimeBeforeFade As Int = 1800000 ' ( 30 minutes in milliseconds )
jo.RunMethod("setScrollBarDefaultDelayBeforeFade", Array As Object (iTimeBeforeFade))
' - Increase width of Scrollbar ' DOESN"T WORK - HAS NO NOTICABLE EFFECT
Dim iScrollbarWidth As Int = 300 ' pixels - *** value here doesn't seem to have any effect
jo.RunMethod("setScrollBarSize", Array As Object (iScrollbarWidth ))
End Sub