Declare da seguinte forma na área de declaração (use Public no arquivo .bas e PRivate no Form)
PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhWndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong
no programa
Intranet:
ShellExecuteMe.hWnd,"open","http://host/diretório da intranet","","",5
Internet:
ShellExecuteMe.hWnd,"open","http://www.ruentex.com.tw","","",5
É muito simples!!! Mesmo que sua máquina não consiga se conectar à Internet, você ainda pode experimentar as funções da intranet imediatamente.->