Private Sub Label1_MouseMove(ByVal Index As Integer, ByVal Button As Integer, _
  ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label2.BackColor = Label1(Index).BackColor
End Sub

Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
Label2.BackColor = Label1(Index).BackColor
End Sub

____________________
Mit freundlichen Gr??en
Big Smoke