Sub Globals
Dim wve As WebViewExtras
Dim WebView1 As WebView
End Sub
Sub webView1_PageFinished(Url As String)
wve.executeJavascript(WebView1,"document.body.style.backgroundColor='black'")
wve.executeJavascript(WebView1,"document.body.style.color='white'")
End Sub