VB按钮制作,美化,颜色渐变等:部分代码'自动重绘PrivateFunctionAutoMouseAction()AstMouse_Status_EnumDimintMouseActionAstMouse_Status_EnumIfUserControl.Enabled=TrueThenIfIsMouseDownThenIfisMouseOverThenintMouseAction=Mouse_DownElseintMouseAction=Mouse_U