vb6 - vb6.0でズームアウトしたWebブラウザーを表示する方法

Question

これは、ズームアウトされた Web ブラウザーに使用しているコードです。

Const OLECMDID_OPTICAL_ZOOM = 63
Const OLECMDEXECOPT_DONTPROMPTUSER = 2

Web1.ExecWB OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(35), vbNull

コードを使用すると、次のランタイム エラーが発生します。

-2147221248 (80040100): 自動化エラー

何か案は？

編集済み：あなたから提供されたコードを使用します。exeを取得して実行すると、デバッグモードで正常に動作し、次のエラーが表示されます。