【VB界面】子类化重绘仿QQ2009渐变按钮(模块)

'*************************************************************************
''----------------------------------------------------------------------
'**系统名称：子类化重绘仿QQ2009渐变按钮
'**模块描述：
'**模 块 名：Form1
'**创 建 人：gvu
'**作者网站：http://hi.baidu.com/googlevipuser
'**E-Mail地址: owhao@126.com
'**日 期：2009-09-01 08:09:12
'**修 改 人：
'**日 期：
'**描 述：
'**版 本：V1.0.0
'*************************************************************************
'
' MSkinButton.Attach Me.hWnd
' MSkinButton.Detach Me.hWnd

Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type RECTW
Left As Long
Top As Long
Right As Long
Bottom As Long
Width As Long
Height As Long
End Type
Private Type PAINTSTRUCT
hDC As Long
fErase As Long
rcPaint As RECT
fRestore As Long
fIncUpdate As Long
rgbReserved(32) As Byte
End Type
Private Type TRACKMOUSEEVENTTYPE
cbSize As Long
dwFlags As Long
hwndTrack As Long
dwHoverTime As Long
End Type
Private Type WINDOWPOS
hWnd As Long
hWndInsertAfter As Long
X As Long
Y As Long
cx As Long
cy As Long
Flags As Long
End Type
Private Type NCCALCSIZE_PARAMS
rgrc(0 To 2) As RECT
lppos As Long
End Type
Private Enum DTSTYLE
DT_LEFT = &H0
DT_TOP = &H0
DT_CENTER = &H1
DT_RIGHT = &H2
DT_VCENTER = &H4
DT_BOTTOM = &H8
DT_WORDBREAK = &H10
DT_SINGLELINE = &H20
DT_EXPANDTABS = &H40
DT_TABSTOP = &H80
DT_NOCLIP = &H100
D