如何在程序中建立超链接？有几种方法:﹃D

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 Declare Function GetDesktopWindow Lib "user32" () As LongFunction StartUrl(Url As String) As Long
  Dim Scr_hDC As Long
  Scr_hDC = GetDesktopWindow()
 StartUrl = ShellExecute(Scr_hDC, "Open", Url, "", "C:\", 1)
End Function这个函数很好，其中Scr_hDC一可以用0代替up的shell 
url 是 string
shell "start.exe "+Url,vbNormalFocus