建立一个模块
Public Sub frmMouseMove(ctlControl As Control)
If ctlControl.ControlType = acCommandButton Then
ctlControl.FontBold = True '字体变为粗体
ctlControl.ForeColor = vbRed '字体颜色变为红色
ctlControl.FontSize = 12 '字体比默认值（9）变大
End If
End Sub
Public Sub DetailMouseMove(frm As Form)
Dim ctlControl As Control
For Each ctlControl In frm.Controls
If ctlControl.ControlType = acCommandButton Then
ctlControl.FontBold = False '字体变为细体
ctlControl.ForeColor = vbBlack '字体颜色变为黑色
ctlControl.FontSize = 9 '字体变为默认大小
End If
Next
End Sub
用法;
在主体的MouseMove事件
Private Sub 主体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call DetailMouseMove(Me)
End Sub
在命令按钮的MouseMove
Private Sub cmdShiftOK_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call frmMouseMove(Me.cmdShiftOK)
End Sub
