------解决方案--------------------
vs2010版调试通过,如有不同,纯版不同 鼠标悬浮色变红,加下划线 Private Sub Label1_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.MouseHover Label1.ForeColor = Color.Red Label1.Font = New System.Drawing.Font("simsun", 9, FontStyle.Underline) End Sub
鼠标离开,色变蓝,无下划线 Private Sub Label1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.MouseLeave Label1.ForeColor = Color.Blue Label1.Font = New System.Drawing.Font("simsun", 9, FontStyle.Regular) End Sub