Controls without the code :)

Hi

I have this:

VB Code:

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

You could make the control an Array perhaps

Control arrays in VBA.. eeekkk!
I `ll look at it
Thanks

the objects should be in a collection if they are the only labels on the form or got some other commen attribute others don't have
the for each statement should do it