用VB6.0怎么实现在VB面板上添加一个外链连接到指定网站拜托各位了 3Q

用一个LABEL框，把label框的autosize改为TURE，backstyle改为0，forecolor改为蓝色，字体加下划线 然后用下面的代码就OK了 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() Dim HttpJump Dim MyUrl As String MyUrl = " http://wenwen.soso.com " HttpJump = ShellExecute(0&, vbNullString, MyUrl, vbNullString, vbNullString, vbNormalFocus) End Sub

一楼的答案完全可以得分了！