Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
Dim i As Integer, MausIndex As Integer
 
If Button = vbRightButton Then
    'rechte Maustaste ist gedrückt -> prüfen, über welchem Label der 
    ' Mauszeiger ist
    MausIndex = -1
    For i = 0 To Label1.UBound
        With Label1(i)
            If X > .Left And X < .Left + .Width And Y > .Top And Y < .Top _
              + .Height Then
                MausIndex = i
                Exit For
            End If
        End With
    Next
 
    If MausIndex >= 0 Then
        For i = Index To MausIndex
            Label(i).BackColor = vbGreen
        Next
    End If
End If
End Sub