如何在程序中实现网页的超连接

Question

如一些程序，点击相应部位，就达其它开发者的网站

Answer 1

Private Sub Label1_Click()
Dim myvalue As String
myvalue = Shell("rundll32.exe url.dll,FileProtocolHandler " & "http://www.csdn.net", 1)
End Sub

Answer 2

private sub label_click()
shellexecute(me.hwnd,"open","http://www.163.com","","",SW_SHOW)
end sub最好把label1设置下划线，蓝色
看起来更像超链接

Answer 3

Private Sub Label1_Click()
Dim myvalue As String
myvalue = Shell("rundll32.exe url.dll,FileProtocolHandler " & "http://www.csdn.net", 1)
End Sub