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]

晕~早说了变色在move，click才shell

哇~太厉害了~谢谢~

请问FontUnderline是什么意思?