Private Sub FontDecrease_Click()
    Dim Z As Variant
    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 FontIncrease_Click()
    Dim Z As Variant
    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

Private Sub StartDemo_Click()
    WebBrowser1.Navigate ("http://samuel.happycoders.org/")
End Sub