一、调用方式
OnlineWeb("
http://www.accessoft.com")
二、OnlineWeb函数
Public Function OnlineWeb(WebAddress As String)
'功能：打开一个网站
'修改历史：2006/1/3
'说明：
'WebAddress为将打开网站的网址
'作者：竹笛 (微软最有价值专家)
'说明：您可以无偿地在您自已开发的软件中应用此函数，为了尊重作者的劳动，请保留这些说明信息。同时您不得用于盈利的商业用途，欢迎大家提出修改意见，并就此函数与作者交流
'邮箱：admin@accessoft.com
On Error GoTo Err_OnlineWeb
Dim Web
Set Web = CreateObject("InternetExplorer.Application")
Web.Visible = True
Web.Navigate WebAddress
Exit_OnlineWeb:
Exit Function
Err_OnlineWeb:
Resume Exit_OnlineWeb
End Function
