title: How to show zoomed out web browser in vb6.0
body: <p>This is the code am using for zoomed out web browser</p>
  
  <pre><code>Const OLECMDID_OPTICAL_ZOOM = 63
  Const OLECMDEXECOPT_DONTPROMPTUSER = 2
  
  Web1.ExecWB OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(35), vbNull
  </code></pre>
  
  <p>when i use the code i get the following runtime error: </p>
  
  <blockquote>
    <p>-2147221248 (80040100): Automation Error</p>
  </blockquote>
  
  <p>Any ideas?</p>
  
  <p>Edited:
  I use the code given by you. It works fine in debug mode once i take exe and run it shows the following error.<img src="https://i.stack.imgur.com/kUDy5.jpg" alt="enter image description here"></p>