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

通过网盘分享的文件：WinAXP(2).rar
链接: https://pan.baidu.com/s/1A5o95y5G7sjX5AKIyxk2Ew?pwd=1234 提取码: 1234

VERSION 5.00
Begin 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
   End
End
Attribute VB_Name = "BBtn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'作者：夏煜 【Email:imperialeast@126.com QQ:499932452】

Private Type BLENDFUNCTION
    BlendOp As Byte
    BlendFlags As Byte
    SourceConstantAlpha As Byte ' 透明度：0=全透，255=不透明
    AlphaFormat As Byte
End Type

Private 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 Long

Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32"