Всем доброе время суток !

Для подсветки елемента управления "кнопка" в Excel используется такой, например, код:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With CommandButton1
.BackColor = Abs(X * 100)
.ForeColor = Abs(Y * 100)
.Caption = "X= " & X & vbLf & "Y=" & Y
End With
End Sub

Вопрос: есть ли код для подсветки рисованной кнопки Excel (автофигуры), так чтобы при наведении указателя мыши на рисованную кнопку (автофигуру) менялся бы цвет кнопки, а после отвода указателя мыши за пределы рисованной кнопки (автофигуры) восстанавливалась бы преждняя заливка ?
Для решения задачи очевидно необходимо использовать средства WinAPI.