Sub SetZoom(ThisView As WebView,ZoomLevel As Float)
If ThisView.IsInitialized Then
Dim NaObj As NativeObject = ThisView
Dim z, minimumZoomScale, maximumZoomScale As Float
minimumZoomScale=NaObj.GetField("scrollView").GetField("minimumZoomScale").AsNumber
maximumZoomScale=NaObj.GetField("scrollView").GetField("maximumZoomScale").AsNumber
If ZoomLevel=-1 Then
z=1.0
Else
z=ZoomLevel*minimumZoomScale
z=Min(z,maximumZoomScale)
End If
Log("Setting relative zoom level to " & z)
NaObj.GetField("scrollView").RunMethod("setZoomScale:animated:",Array(z,True))
'NaObj.GetField("scrollView").SetField("zoomScale",z) 'Didn't update till manual screen change
End If
End Sub