Mudar cor do Label ao mover o mouse

Algum dos amigos teria um exemplo de código que por exemplo: o label está de cor preta "padrão" ao mover o mouse pelo label ele mudará para "vermelho" e ao perder o foco do mouse volta para "preto".

Grato.

Avelino o mais próximo que encontrei segundo o meu conhecimento limitado é:

Código:

Public Function Rtl(frm As Form)
'Função adapatada por Leandro Barbosa
'Tendo como base a função demonstrada nesse link e criada pelo Sr. Avelino Sampaio
'http://www.usandoaccess.com.br/tutoriais/tuto53.asp?id=1#inicio
'No evento ao carregar dos formulários digite: Call Rtl(Me)
Dim ctl As Control
For Each ctl In frm.Controls
If ctl.ControlType = acLabel And ctl.Name = "Rótulo34" Then
ctl.FontName = "=CaptionRtl(" & ctl.Name & ")"
End If
Next
End Function

Public Function CaptionRtl(ctl As Control)
ctl.FontName = "Verdana"
End Function

Porém ao chamar função da erro "O argumento não é opcional"

Seria algo mais ou menos assim:

Se label1 estiver com o foco então
Me.label1.ForeColor = vbRed
senão
Me.label1.ForeColor = vbBlack
fim se