replacment:
Dim r As Reflector
r.Target = WebView1
r.Target = r.RunMethod("getSettings")
r.RunMethod2("setBuiltInZoomControls", True, "java.lang.boolean")
r.RunMethod2("setDisplayZoomControls", False, "java.lang.boolean")
What shall I do to activate the event "WebView1_PageFinished(Url As String)" as it is working in B4A