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) As Long

ShellExecute 0, "open", "http://www.skrnet.com", "", "", vbNormalFocus

小恐龍工作坊 提供