现在可以用ExecWB命令改变fontsize了。

主持人注：可以使用ExecWB并传递OLECMDID_ZOOM命令作为cmdID参数获得缩放级别的当前值。缩放级别指的是Internet Explorer中当前显示的字体大小。它和Internet Explorer中“查看”菜单的“文字大小”相当。
获得当前字体大小后, 你可以设置它为其他值。默认值为2, 对应着菜单中的中等。因为选项允许2个级别较大，而2个级别较小，缩放级别的范围为0到4，0最小，而4最大。OLECMDID_GETZOOMRANGE命令返回合法的字体大小范围，应该为0到4。

下面的步骤演示了如何添加这个功能到你定制的浏览器:

1、在Visual Basic 6.0中建立一个新的工程。默认创建Form1。
 
2、添加Microsoft Internet Controls到你的组件列表。

3、添加WebBrowser control和三个按钮到Form1。

4、复制并粘贴下面的代码到Form1:

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.it26.com"
Command1.Caption = "获得当前字体大小"
Command2.Caption = "减小字体"
Command3.Caption = "增大字体"
End Sub


Private Sub Command1_Click()

Dim Z As Variant 'Z is the value to hold the zoom level.
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, Null, Z

MsgBox "The current font size is " & Z

End Sub

Private Sub Command2_Click()

Dim Z As Variant 'Z is the value to hold the zoom level.
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, Null, Z

If Z > 0 Then
Z = Z - 1
Else
Z = 0
End If

WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, Z, Null
End Sub

Private Sub Command3_Click()

Dim Z As Variant 'Z is the value to hold the zoom level.
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, Null, Z

If Z < 4 Then
Z = Z + 1
Else
Z = 4
End If

WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, Z, Null
End Sub


5、运行工程。当页面加载后，可以按命令按钮改变WebBrowser控件的字体大小。