Private Sub uigesture_swipe(state As Int,direction As Int, x As Float, y As Float,obj As Object)
Msgbox("To the left",1)
Dim att As Swipe_Attributes
att.direction=direction
att.x=x
att.y=y
att.obj=obj
If SubExists(mHandler,mEventName & "_Swipe",2) Then
CallSub3(mHandler,mEventName & "_Swipe",state,att)
End If
End Sub
to the left Effective
How do ( to the right )?