求一种按钮效果，在线等，解决马上给分

Question

当鼠标移动到按钮上，按钮改变，当鼠标移开，按钮恢复
求执行效率最高，代码最简练的方法

Answer 1

我用IMG控件做按妞，当鼠标移动到按钮上，改变IMG控件的picture属性，当鼠标移开，恢复picture属性，懂我的意思了吗？

Answer 2

Private Sub cmdTom1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdTom1.Picture = LoadPicture("C:\Pictures\PIC1.BMP")
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cmdTom1.Picture = LoadPicture("C:\Pictures\PIC2.BMP")
End Sub