Dim grSwipe As GestureRecognizer
Sub grswipe_Swipe(state As Int,attributes As Swipe_Attributes)
Select attributes.Direction
Case grSwipe.SWIPE_Direction_Left
If mywebview.CanGoForward Then mywebview.GoForward
Case grSwipe.SWIPE_Direction_Right
If mywebview.CanGoBack Then mywebview.goBack
End Select
End Sub