VB下如何让鼠标移过某个按钮时让这个按钮变亮？

一个菜单程序，为了好看一点，鼠标拖动经过这个按钮时，这个按钮变亮，或者局部放大等等

Option Explicit
Dim a As Single
Dim b As Integer
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Height = a * 1.1
Command1.Width = b * 1.1
End Sub

Private Sub Form_Load()
a = Command1.Height
b = Command1.Width
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Height = a
Command1.Width = b
End Sub

没有，自己写，把这个代码复制到窗体里去 private declare function releasecapture lib "user32" () as long private declare function setcapture lib "user32" (byval hwnd as long) as long dim aa as boolean private sub command1_mousemove(button as integer, shift as integer, x as single, y as single) if (x < 0) or (y < 0) or (x > command1.width) or (y > command1.height) then releasecapture aa = false command1.caption = "移出" else if aa = false then setcapture command1.hwnd command1.caption = "移入" aa = true end if end if end sub

要准备两张背景图片，然后切换。