If level > 5 Then
CallSub(Main, "Button2_Click")
End If
End Sub
Sub Button2_Click
Dim BeginPos As Int = WebView1.Height+WebView1.Top-20dip
Dim EndPos As Int = WebView1.Top+20dip
si.SendSwipe(Activity.Width/2,BeginPos,Activity.Width/2,EndPos,10)
End Sub