各位都很热心！

Question

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
Private Sub Label1_Click()
    ShellExecute 0, "open", "http://zyl910.yeah.net", vbNullString, vbNullString, 3
    
End Sub

Answer 1

strLink= "http://www.csdn.net"
ShellExecute 0&, vbNullString, strLink, vbNullString, vbNullString, vbNormalFocus

Answer 2

楼上的对Private Sub Label1_Click()
    Shell "start.exe http://www.163.com", vbHide
End Sub

Answer 3

还是不对，提示
Private Declare Function ShellExecute 没有end function,
加上以后还是不对

Answer 4

API声明不用你自已写end function，要贴在Form或Module的通用部分。