Declare de la siguiente manera en el área de declaración (use Público en el archivo .bas y Privado en el Formulario)
PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhWndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong
en programa
intranet:
ShellExecuteMe.hWnd,"open","http://host/directorio de intranet","","",5
Internet:
ShellExecuteMe.hWnd,"abierto","http://www.ruentex.com.tw","","",5
¡¡¡Es muy simple!!! Incluso si su máquina no puede conectarse a Internet, aún puede experimentar las funciones de la intranet de inmediato.->