Sub DisableScrollTextview(Textview2 As TextView) Dim j As NativeObject j = Textview2 j.SetField("scrollEnabled",False) End Sub