GDI/图象编程

开发平台：

Visual Basic

AeroScrollbar.ctl：源码内容

							VERSION 5.00
Begin VB.UserControl AeroScrollbar 
   Alignable       =   -1  'True
   BackColor       =   &H80000005&
   ClientHeight    =   2655
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   240
   ClipControls    =   0   'False
   FillStyle       =   0  'Solid
   BeginProperty Font 
      Name            =   "Segoe UI"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   FontTransparent =   0   'False
   ForeColor       =   &H8000000F&
   ScaleHeight     =   177
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   16
   ToolboxBitmap   =   "AeroScrollbar.ctx":0000
End
Attribute VB_Name = "AeroScrollbar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'--------------------------------------------------------------------------
' AeroScrollbar ActiveX Control
' Based on ucScrollbar v1.0.4 by Carles P.V. [CodeId=63046]
'--------------------------------------------------------------------------
' Copyright 

						