如何打开新窗口访问指定的WebSite?
Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Const SW_SHOW = 5
'这句只能在没有IE窗口时新开窗口打开"http://www.jinesc.com/bbs/login.asp",否则就用一个已打开的窗口
ShellExecute Me.hwnd, "open", "http://www.jinesc.com/bbs/login.asp", vbNullString, CurDir$, SW_SHOW