دقت کنید این عمل از api 15 به بعد پشتیبانی میشه
لایبرری های مورد نیاز : phone

dim sdk as Phone
If sdk.SdkVersion>14 Then
Dim r As JavaObject=ScrollView
r.RunMethod("setVerticalScrollbarPosition",Array As Object(1))
End If