WebBrowserコントロール関連のこと

お約束(^^;
WebBrowser(IEコンポーネント)を使うためには、
「プロジェクト(P)」->「コンポーネント(C)...」でダイアログを開いて、「Microsoft Internet Controls」にチェックを入れます。
何となく、まぎらわしいのが多いので書いておきます。

あと、ついでに
「プロジェクト(P)」->「参照設定(N)...」でまたダイアログを開いて、「Microsoft HTML Object Library」にチェックを入れておくと後々便利かもしれません。

「新しいウィンドウ」を自分で作ったWebBrowserにしたい。
'フォームの上に1個WebBrowserをのせてから実行してみてください
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frmNew As Form1

'新しいフォームを作成。表示。
Set frmNew = New Form1
Load frmNew
frmNew.Show

'新しいWebBrowserに表示するように設定する。
Set ppDisp = frmNew.WebBrowser1.Object

End Sub

フォントサイズを変えたりしたい。

'フォームの上にWebBrowserとボタンをそれぞれ1個のせてから実行してみてください
Private Sub Command1_Click()
Dim varIn As Variant, varOut As Variant

'Variant型の変数にLong型でフォントサイズを代入する
varIn = CLng(0)

'フォントサイズの変更
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DODEFAULT, varIn, varOut

End Sub

OLECMDID_ZOOMのところを変えるとほかにもいろいろなことが出来る。