Controls without the code :)

[SeaHag]

Hi

I have this:

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
Call PopUpMenue(y)
End Sub
 
 
Sub PopUpMenue(y As Single)
Label2.BackColor = &H8000000D
Label2.ForeColor = &H8000000E
 
If y > Label2.Height - 1 Or y < 1 Then
Label2.BackColor = &H8000000F
Label2.ForeColor = &H80000012
End If
 
End Sub

I want to apply this "function to about 10 labels..
HOw do I do that without coding each one?


I am working in excel. And i need a pop up menu.
So I am coding a frame to mimic a popup menu.

Any suggestions?

Seahag