Taille du texte dans un Composant WebBrowser

Bonjour à tous,

Je désirerai, modifier la taille du texte dans un WebBrower un peu, comme l'Internet Explorer le fait lorsque l'on utilise la touche <CTRL> et la molette de la Souris.

Lors de mes recherches sur le net, j'ai trouvé 2 ou 3 codes, mais pour VB6 et tous mes essais se sont soldés par des COMExceptions.

Est-ce que l'un d'entre vous aurais une petite idée sur la façon de procéder.
Merci.

Dominique.
VBNET 2005.

Re,

Sans le faire exprès j'ai progressé, mais il me reste toutefois encore un problème à résoudre.

Code:

---

1 2 3 4

Dim MyWeb As Object   MyWeb = WebBrowser1.ActiveXInstance MyWeb.execwb(OLECMDID.ID_OPTICAL_ZOOM, OLECMDEXECOPT.DONTPROMPTUSER, 50, IntPtr.Zero)

---

Fonctionne très bien.
Maintenant, si je veux passer la taille de mon texte à travers une variable, je retrouve mon erreur -> (Exception from HRESULT: 0x80040100 (DRAGDROP_E_NOTREGISTERED)) !!!!

Code:

---

1 2 3 4 5 6

Dim MyWeb As Object Dim Z as .... 'J'ai essayé différent type comme Object, Integer, Intptr mais problème inchangé.   Z = 50 MyWeb = WebBrowser1.ActiveXInstance MyWeb.execwb(OLECMDID.ID_OPTICAL_ZOOM, OLECMDEXECOPT.DONTPROMPTUSER, Z, IntPtr.Zero)

---

Quelqu'un aurait-il une petite idée ?

Dominique.