'Hallo...
'Sicherlich ist es möglich die Events die in dem MouseMove Ereignis auftreten 
' können
'in eine externe Prozedur zu "exportieren". Nur was macht das für einen Sinn ?
'Anbei ein kleines Beispiel was die Frage zu den 3 Label-Controls betrifft. Der
'Aufruf der Prozedur muss natürlich aus dem MouseMove-Ereignis ausgeführt 
' werden.
Private Sub ExportMouseMoveEvents(nIndex As Integer, Optional x As Single, _
  Optional y As Single)
    Select Case nIndex
        Case 1
            Label1.ForeColor = vbBlue
            End
        Case 2
            Label2.ForeColor = vbRed
            Form2.Show 1
        Case 3
            Label3.ForeColor = vbYellow
    End Select
 
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, x As Single, _
  y As Single)
    ExportMouseMoveEvents 1, x, y
End Sub
 
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, _
  y As Single)
    ExportMouseMoveEvents 2, x, y
End Sub
 
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, _
  y As Single)
    ExportMouseMoveEvents 3, x, y
End Sub