Question

VB怎样实现Label鼠标经过变色?

请问在VB中怎样实现Label控件在鼠标经过时变换颜色，鼠标移开时又变回原来的原色呢？比如本原字体是蓝色的，当鼠标经过LABEL控件时，LABEL里面的字符变成黄色，当鼠标移出LABEL控件的范围后又变回原来的蓝色，希望各位前辈能帮忙写下这段程序，谢谢！！！

Answer 1

Private Sub Form_Load()
Label1.ForeColor = vbBlue
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label1.ForeColor = vbYellow Then Label1.ForeColor = vbBlue
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbYellow
End Sub

Answer 2

最好再把label1.autosize=true