Sub Globals
Dim wv As WebView
Dim wve As WebViewExtras
Dim wvs As WebViewSettings
End Sub
Sub ShowWebBrowser
...
wv.Initialize("wv")
wve.Initialize(wv)
Dim JavascriptInterface1 As DefaultJavascriptInterface
JavascriptInterface1.Initialize
Dim WebChromeClient1 As DefaultWebChromeClient
WebChromeClient1.Initialize("WebChromeClient1")
wve.SetWebChromeClient(WebChromeClient1)
wve.AddJavascriptInterface(JavascriptInterface1,"Android") 'Added so that Javascript can communicate with Android App
wvs.setAllowFileAccess(wv,True)
wvs.setAppCacheEnabled(wv,True)
wvs.setDOMStorageEnabled(wv,True)
wvs.setDisplayZoomControls(wv,False)
...
End Sub