Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)<br>
Label1.BackColor = vbRed<br>
End Sub<br>
<br>
Private Sub Frame4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)<br>
Label1.BackColor = vbWhite<br>
End Sub<br>