Sub WebView1_PageFinished (Url As String)
Dim Javascript As String
Javascript="B4A.CallSub('ProcessHTML', false, document.documentElement.outerHTML)"
WebViewExtras1.executeJavascript(MyWebV, Javascript)
End Sub
Sub ProcessHTML(Html As String)
ProcessHtmlData(Html)
Label1.Text="Any Thing"
End Sub