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"。

因为 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编辑过]

你的代码应该改成:
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

哦，应该是:
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)。

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.Font.Underline = True
Shell "explorer.exe ""http://www.bc-cn.net""", vbMaximizedFocus

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Font.Underline = False
End Sub

真的不好意思，我改了又改，终于可以了，而且当光标移到 Label 上面时，文字会变成蓝色。

[CODE]Private Sub Label1_Click()
Shell "explorer.exe ""http://www.bc-cn.net""", vbMaximizedFocus
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlue
Label1.FontUnderline = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlack
Label1.FontUnderline = False
End Sub[/CODE]

呵呵，昨晚好多事都在大脑里面，一时着急写了错误代码。
PS: 最近 Mr.slore 喜欢用渐变字体了。

Font 属性可以控制 Label 控件的字体，可以定制出带粗体、斜体、下划线和删除线(Strikethrough)样式的字体。