Hola
En teoría con poner un 3 en lugar de 1, debería de ser suficiente, pero he realizado una prueba y con el navegador no me funciona, en cambio por ejemplo con un txt si.
Con el Navegador (Firefox), no me funciona:
Código:
Resul = ShellExecute(Me.hwnd, "Open", "www.google.es", "", "", 3)
Con un documento de texto si funciona:
Código:
Resul = ShellExecute(Me.hwnd, "Open", "D:\PRUEBA.TXT", "", "", 3)
Siento no poder ayudarte con eso.
--Saludos--