Android Code Snippet Disable ViewPager Swipe (Touch)

I use this code if I ever need to disable the touch event of the view pager. It's useful if you wanna create a survey, so users cannot swipe the viewpager.

Sub DisableViewPagerSwipe
    Dim r As Reflector
    r.Target = Vp
    r.SetOnTouchListener("Vp_Touch")
End Sub

Sub Vp_Touch(View As Object, Action As Int, X As Float, Y As Float, MotionEvent As Object) As Boolean
    Return True
End Sub