Private WebViewExtras1 As WebViewExtras
Private WebViewSetting1 As WebViewSettings
Private WebChromeClient1 As DefaultWebChromeClient
Private JavascriptInterface1 As DefaultJavascriptInterface
Dim jo As JavaObject = wvMAR
jo.RunMethod("setLayerType", Array(2, Null))
WebViewExtras1.SetWebChromeClient(WebChromeClient1)
WebViewSetting1.setDatabaseEnabled(wvMAR, True)
WebViewSetting1.setDOMStorageEnabled(wvMAR, True)
WebViewSetting1.setGeolocationEnabled(wvMAR, True)
WebViewSetting1.setSaveFormData(wvMAR, False)
WebViewSetting1.setSavePassword(wvMAR, False)
WebViewSetting1.setJavaScriptCanOpenWindowsAutomatically(wvMAR, False)
WebViewSetting1.setSupportZoom(wvMAR, False)
WebViewSetting1.setUseWideViewPort(wvMAR, False)
WebViewSetting1.setMediaPlaybackRequiresUserGesture(wvMAR, False)
WebViewSetting1.setDatabasePath(wvMAR, "")