按钮制作与美化VB6.0

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