Option Explicit '函数声明 Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, _ ByVal Y As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, _ ByVal hRgn As Long, ByVal bRedraw As Boolea
VB按钮制作，美化，颜色渐变等：部分代码 '自动重绘 Private Function AutoMouseAction() As tMouse_Status_Enum Dim intMouseAction As tMouse_Status_Enum If UserControl.Enabled = True Then If IsMouseDown Then If isMouseOver Then intMouseAction = Mouse_Down Else intMouseAction =
