鼠标经过 Label 上方时改变颜色，就象网页中的那个超链接一样！

Private Sub Form_Load() '窗体载入Label1 的颜色为蓝色
Label1.ForeColor = QBColor(9)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '鼠标离开 Label1 时颜色还原为蓝色
Label1.ForeColor = QBColor(9)
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '鼠标经过Label1 时颜色变为红色
Label1.ForeColor = QBColor(12)
End Sub