Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)n = Label4.ForeColorLabel5.ForeColor = vbRedLabel5.ForeColor = nEnd Sub为什么没有变化的?该怎样写?
因为label4和label5的前景色一样,所以没变化。还原:Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label5.ForeColor = vbBlackEnd Sub