Dim MEv As Object = GD.CreateMotionEvent(DateTime.Now, DateTime.Now, GD.ACTION_DOWN, 40%x, 90%y)
GD.PassTouchEventTo(MEv, WebView1)
Dim MEv As Object = GD.CreateMotionEvent(DateTime.Now, DateTime.Now, GD.ACTION_MOVE, 10%x, 10%y)
GD.PassTouchEventTo(MEv, WebView1)
Dim MEv As Object = GD.CreateMotionEvent(DateTime.Now, DateTime.Now, GD.ACTION_MOVE, 20%x, 20%y)
GD.PassTouchEventTo(MEv, WebView1)
Dim MEv As Object = GD.CreateMotionEvent(DateTime.Now, DateTime.Now, GD.ACTION_UP, 20%x, 20%y)
GD.PassTouchEventTo(MEv, WebView1)