淡入淡出的button控件，源代码

通过网盘分享的文件：WinAXP.rar链接: https://pan.baidu.com/s/1FqTBnwN-wOcJcrrIOjOLKg?pwd=1234 提取码: 1234VERSION 5.00Begin VB.UserControl BBtn AutoRedraw = -1 'True ClientHeight = 2295 ClientLeft = 0 ClientTop = 0 ClientWidth = 4950 ScaleHeight = 153 ScaleMode = 3 'Pixel ScaleWidth = 330 Begin VB.Timer TBlend Enabled = 0 'False Interval = 33 Left = 2880 Top = 1680 End Begin VB.Timer Tout Enabled = 0 'False Interval = 100 Left = 2880 Top = 960 EndEndAttribute VB_Name = "BBtn"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = TrueAttribute VB_PredeclaredId = FalseAttribute VB_Exposed = FalseOption Explicit'作者：夏煜 【Email:imperialeast@126.com QQ:499932452】Private Type BLENDFUNCTION BlendOp As Byte BlendFlags As Byte SourceConstantAlpha As Byte ' 透明度：0=全透，255=不透明 AlphaFormat As ByteEnd TypePrivate Declare Sub RtlMoveMemory Lib "kernel32.dll" (Destination As Any, Source As Any, ByVal length As Long)Private Declare Function AlphaBlend Lib "Msimg32.dll" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal hdcSrc As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal cxSrc As Long, ByVal cySrc As Long, ByVal BLENDFUNCTION As Long) As LongPrivate Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As LongPrivate Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As LongPrivate Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As LongPrivate Declare Function DeleteObject Lib "gdi32" (By