MouseMove-Effekt zusammenfassen?

Private Sub lblvorname_MouseMove(ByVal Button as Interger, ByVal Shift as Integer, ByVal X As  _
Single, ByVal Y as Single
With me.lvlvorname
.specialeffekt = fmSpecialeffectsunken
end with
End Sub

1. Muß man für jeden label ein eigenes Sub schreiben oder kann man es in einem zusammefassen (lblNachname, lbl Wohnort, etc) ?
2. Wenn ja, kann man dann ein "click" - Ereigniss auch zusammenfassen oder muß man da immer ein _ neues Sub schreiben (z.B.

Private Sub lblnachname_click)...
Danke
NIK