在VB6.0中如何实现超级链接？

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 hWnd, "open", "http://zhidao.baidu.com", vbNullString, vbNullString, conSwNormal
End Sub
真郁闷，为什么老有人在说VB淘汰了。。。
饿滴神啊····

我记得有个超连接的控件,然后可以设定他跳转的URL
记不清楚了 老早学的VB 现在VB都淘汰了 也没研究他

intemet控件:
1、WebBrowser 网络连接控件
选择：Microsoft Internet Controls
2、intemet transfer 传输协议控件
选择：Microsoft Internet Transfer Control 6.0 (SP4)
3、mapisession 邮件功能控件
选择：Microsoft MAPI Control 6.0 (SP5)
4、MAPIMessages
选择：Microsoft MAPI Control 6.0 (SP5)