请教：控件背景颜色随鼠标变化，控件在上面是一种颜色，移开时是另一种颜色。

Question

控件背景颜色随鼠标变化，控件在上面是一种颜色，移开时是另一种颜色。
比如：label,botton等。

Answer 1

Private Sub Form_Load()
    Label1.AutoSize = True
    Label1.ForeColor = vbBlue
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.ForeColor = vbBlue
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.ForeColor = vbRed
End Sub