I was able to implmenting Zoom In and Zoom Out with commands buttons and this code:
Zoom In
Local lnZoom
lnZoom = Evl(Val(This.Parent.obrowser.Document.Body.Style.zoom), 1)
lnZoom = lnZoom * 1.1
This.Parent.obrowser.Document.Body.Style.zoom = Transform(lnZoom)
Zoom Out
Local lnZoom
lnZoom = Evl(Val(This.Parent.obrowser.Document.Body.Style.zoom), 1)
lnZoom = lnZoom * 0.9
This.Parent.obrowser.Document.Body.Style.zoom = Transform(lnZoom)
>In addition to what Dragan posted you can also manipulate the body element's font style.
>
>loBrowser.Document.Body.Style.fontSize = "8pt";
>
>I believe, which should affect the overall document font size assuming elements don't use hard coded font-sizes.
>
>ExecWB though will allow you to use the same resizing that the browser uses which ignores hardcoded font-sizes and goes based on relative sizes of the document's original rendering.
>
>+++ Rick ---
>
>>Is there a way the user can increase or decrease the font size in the broweser control while they are viewing a page?
>>
>>I know that I can do this when Using IE by pressing Ctrl+ and Ctrl-, or using Ctrl+MouseScrollWheel, but these have no affect on the browser control.
>>
>>Any ideas?