Hello Pierre,

You didn't follow my directions. The UserForm code is to be placed in
the General Declarations section of the UserForm not in a standard VBA
module. This is the area above all the event (or as you refer to class)
code for the UserForm. Then place the following line in each of the
Label's MouseDown event code section. The default is the Click event.
Go to the top of the code area and click on the top right Drop Down
box. In the list you will see MouseDown listed. Click on it and then
type the following code...

Example for Label1:

Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Call ToggleLabel(Label1)
End Sub

Repeat this for each label you use. Besure to change the Label name in
the function to match the label it will modify.

Place this code in the General Declarations section of the UserForm:

Code:
--------------------

Public Sub ToggleLabel(ByVal Lbl As MSForms.Label)

Dim ThisLabel As String

Lbl.SpecialEffect = fmSpecialEffectSunken
ThisLabel = Lbl.Name

If LastLabel < "" And LastLabel < ThisLabel Then
Set Lbl = Controls(LastLabel)
Lbl.SpecialEffect = fmSpecialEffectRaised
End If

LastLabel = ThisLabel

End Sub

--------------------


Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=496994