Visual Basic para Aplicaciones - Efecto en Objeto Label

Amigos, a ver quien me puede ayudar. Estoy trabajando en VBA, el editor de Visual que tiene el Office2003, estoy usando Labels para dar efecto de uso de botones. Al cargar el formulario presento un Label haciendo las veces de barra de herramientas, con varias imágenes de "botones" ( pues tambien son labels con el efecto Flat ) y he logrado que al presionar con el Mouse ( su hunde el "botón" ) y al levantar el Botón del Mouse ( regresa a su posición inicial ), un poco que trato de imitar los efectos que se aprecian en en el Internet Explorer cuando colocas el Mouse sobre uno de los botones de la barra de herramientas.
Lo que no logro hacer es justamente eso, que al colocar el mouse sobre el botón cree un efecto de fmSpecialEffectRaised o fmSpecialEffectBump, etc, o sea que se vea visualmente que el Mouse está sobre la etiqueta.
¿Alguien me puede dar una ayuda?
Desde ya muchas gracias.

veamos si esto te da una idea...

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Not InObject(X, Y, Label1) Then
Label1.SpecialEffect = fmSpecialEffectRaised
Else
Label1.SpecialEffect = fmSpecialEffectFlat
End If
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.SpecialEffect = fmSpecialEffectFlat
End Sub

'//En un módulo
Option Explicit

Public Function InObject(ByVal X As Single, ByVal Y As Single, Obj As Object) As Boolean
On Error Resume Next
With Obj
If X > .Left And X < (.Left + .Width) And _
Y > .Top And Y < (.Top + .Height) Then
InObject = True
Else
InObject = False
End If
End With
End Function

Saludos desde Baires, JuanC

Muchas gracias JuanC, es justo lo que deseaba lograr.