两张图片，鼠标移动到按钮上时显示另外一张图片

你看一下自定义按钮。

好像以前论坛有这个方面的贴子。

供你参考：
Private Sub Check1_Click()
    If Check1.Value = 1 Then
        Command1.Enabled = False
    Else
        Command1.Enabled = True
    End If
End Sub
Private Sub Form_Load()
    Command1.Picture = LoadPicture(App.Path + "\1.bmp")
    Command1.DownPicture = LoadPicture(App.Path + "\2.bmp")
    Command1.DisabledPicture = LoadPicture(App.Path + "\3.bmp")
End Sub

按钮有mousemove事件,在事件中处理就可以了,或者把按钮设置为三态的按钮.设置显示和移动上去的图片