76513499:
关于"光标移至网址时显示下划线"的问题，可以通过 Label 控件的 MouseMove 事件中添加设置 Label 文字颜色(ForeColor)的语句来解决:
Label1.ForeColor = vbBlue
当光标移至 Form 区域时，就相当于离开了 Label 控件，所以可以在 Form 的 MouseMove 事件中添加一个语句来还原 Label 的文字颜色:
Label1.ForeColor = vbBlack

这里 vbBlue 和 vbBlack 都是 Visual Basic 6 中的颜色常数，还有 vbMagenta (紫色) 和 vbCyan (青色)等颜色常数，可以参看 VB 的"对象浏览器"，然后搜索"vbBlack"。

开了您的贴后我试着带如此代码中：
Private Sub Label1_MouseMove()
Label1.ForeColor = vbBlue
Shell "explorer.exe ""http://www.bc-cn.net""", vbMaximizedFocus

End Sub

但是出现“过程声明与同名事件或过程的描述不匹配”的错误
MouseMove 事件我是第一次听说，请问能否做个简单代码做例子？

Shell "explorer.exe ""http://www.bc-cn.net""", vbMaximizedFocus

在click，变色在move

因为 MouseMove 事件是带参数的，所以你必须依照以下方法来添加该事件:
1、双击 Label 控件，打开代码窗口。
2、在代码上面的第二个框中(一般显示为"Click")选择"MouseMove"，添加事件完成。
3、这时你会看到代码中多了一个 MouseMove 事件，而且它是带 Shift、X、Y 三个参数的。
MouseMove 事件是在光标移动到某控件表面上所触发的事件。例如在窗体的 MouseMove 事件中输入:
Print "触发 MouseMove 事件"
然后测试，当你把光标移到窗体上面时，会打印"触发 MouseMove 事件"字符串。
参数 Shift 存储当前是按下 Shift、Ctrl 还是 Alt 键，X 和 Y 分别表示当事件触发时，光标的 X 和 Y 坐标。

[此贴子已经被作者于2005-10-30 23:08:04编辑过]

太深奥了看不懂.....我刚学VB不久,希望大虾能说的具体点,谢谢

你的代码应该改成:
Private Sub Label1_MouseMove(Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlue
Shell "explorer.exe ""http://www.bc-cn.net""", vbMaximizedFocus

End Sub

实验后还是出现"过程声明与同名事件或过程的描述不匹配”的错误..

而且当我点击"MouseMove"对象
小括号里多了个"Button As Integer"
当我没把此语句删除时,我把鼠标放到网页上,网页自动打开了
这是什么回事?

哦，应该是:
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.ForeColor = vbBlue
Shell "explorer.exe ""http://www.bc-cn.net""", vbMaximizedFocus

End Sub

Button 变量存储点击了鼠标左键(vbLeftButton)、中键(vbMiddleButton)还是右键(vbRightButton)。

晕,还是不行..网页自动弹出,而且下划线一直没出现(我已经该成vbLeftButton后的结果)