Sub Activity_Create(FirstTime As Boolean)
WebView1.Initialize("WebView1")
WebViewExtras1.Initialize(WebView1)
Dim client As DefaultWebViewClient
client.Initialize("client")
WebViewExtras1.SetWebViewClient(client)
Activity.AddView(WebView1, 0, 0, 100%x, Activity.Height)
WebSettings.setDefaultTextEncodingName(WebView1,"utf-8")
WebViewExtras1.addJavascriptInterface(WebView1, "B4A")
WebView1.JavaScriptEnabled = True
WebView1.ZoomEnabled=False
End Sub
Sub AppClose_Request()
ToastMessageShow("Exiting...",True)
ExitApplication
End Sub