在声明区中声明如下(在.bas档中用Public,在Form中用Private)
　　
　　PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhWndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong
　　
　　在程序中
　　
　　Intranet：
　　ShellExecuteMe.hWnd,"open","http://Intranet主机/目录","","",5
　　Internet：
　　ShellExecuteMe.hWnd,"open","http://www.ruentex.com.tw","","",5
　　
　　很简单吧!!!就算您的机器不能连上Internet,您也可以马上感受一下Intranet的功能.->