mouse hover effect

mouse hover effect

i want to use mouse hover to change color of buttons and it worked well with this code.

public Sub MouseOver_Default(obElem As Element, vPosX As Variant, vPosY As Variant)
  thisProject.Variables.Item("scractive7").Value = True
End Sub

but problem is when i remove mouse arrow from button it doesnt get back to its original color please can anyone tell me how to do it can anyone share example code for it
please i need explanation about how can i archive this result