How To Change the Font Size in a WebBrowser Control That Is Hosted Inside a Visual Basic Application

Private Sub Form_Load()
    WebBrowser1.Navigate "http://www.microsoft.com"
    Command1.Caption = "Get current font size"
    Command2.Caption = "Decrease font size"
    Command3.Caption = "Increase font size"
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