Хотите сделать так, чтоб при перемещении указателя мыши над кнопкой он изменял стандартный вид?
Причем писать код для ..._MouseMove лень ? Есть более простое решение:

свойство кнопки HyperlinkAddress («Адрес гиперссылки») устанавливаете равным пустой строке ("") и все.

Или программно для всех кнопок формы

**************************

Dim frm as Form
Dim ctl as Control

Set frm = Forms!MyForm
For Each ctl In frm.controls
    if ctl.controltype=acCommandButton Then ctl.HyperlinkAddress = " "
Next ctl

***************************

PS. Все вышесказанное относится так же к надписям и рисункам.