Look in the Object Browser for the Controls collection.  I think you will
find some useful info there.
Too bad command buttons don't have special effects.  It is leaving you with
some really hard work to get a simple visual effect.
BTW, had I read your code more closely, I could have figured out what you
wanted.  My apologies.

Brad,

This is what I use on my forms for label control like you are asking:

Function LabelMouseAction(action As String, i As Integer)
On Error GoTo Err_Handler

   Dim ctl As Control
   Dim strPrevious As String
       
   For Each ctl In Me.Form.Controls
       If (ctl.ControlType = acLabel And ctl.Tag = i) Then
               Select Case action
              Case "mousedown"
                   ctl.SpecialEffect = 2
              Case "mouseup"
           
              Case "mousemove"
                   ctl.SpecialEffect = 1
                   ctl.BackStyle = 1
               End Select
        Else
           With ctl
               .SpecialEffect = 0
               .BackStyle = 0
           End With
       End If
   Next
   
Exit_Handler:
   Exit Function
   
Err_Handler:
   MsgBox Err.Number & " " & Err.Description
   Resume Exit_Handler
               
End Function

Now for each label set the tag property to a number i.e.  1...2...etc for
each label you want the effect.  Then in the Mouse Move event for each label
call the function like so  
=LabelMouseAction("mousemove",1) for the first label
=LabelMouseAction("mousemove",2) for the second label and so forth

For the Mouse Down would be
=LabelMouseAction("mousedown",1) etc for each label on the mouse down

For the Detail section
=LabelMouseAction("mousemove",0)

This will make the label raised when the mouse is moved over the label and
appear sunken when you click down on the mouse.  When you move to the detail
section away from the label it will restore back to the flat appearance.

I also added a "mouseup" to the select case, but you can add any number of
select items you wish.

Hope this helps
lwells