Planet Source Code Jumbo …e CD Visual Basic 1 to 7/5_2007-2008.ISO/data/Zips/iQ_WordPad20918411252007.psc/candybutton.ctl

Text File | 2007-06-23 | 82KB | 1,712 lines

VERSION 5.00
Begin VB.UserControl CandyButton
   Appearance      =   0  'Flat
   AutoRedraw      =   -1  'True
   BackColor       =   &H00FFFFFF&
   ClientHeight    =   1335
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   1830
   ClipBehavior    =   0  'None
   BeginProperty Font
      Name            =   "Tahoma"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ScaleHeight     =   89
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   122
End
Attribute VB_Name = "CandyButton"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

'-Selfsub declarations----------------------------------------------------------------------------
Private Enum eMsgWhen                                                       'When to callback
  MSG_BEFORE = 1                                                            'Callback before the original WndProc
  MSG_AFTER = 2                                                             'Callback after the original WndProc
  MSG_BEFORE_AFTER = MSG_BEFORE Or MSG_AFTER                                'Callback before and after the original WndProc
End Enum

Private Const ALL_MESSAGES  As Long = -1                                    'All messages callback
Private Const MSG_ENTRIES   As Long = 32                                    'Number of msg table entries
Private Const WNDPROC_OFF   As Long = &H38                                  'Thunk offset to the WndProc execution address
Private Const GWL_WNDPROC   As Long = -4                                    'SetWindowsLong WndProc index
Private Const IDX_SHUTDOWN  As Long = 1                                     'Thunk data index of the shutdown flag
Private Const IDX_HWND      As Long = 2                                     'Thunk data index of the subclassed hWnd
Private Const IDX_WNDPROC   As Long = 9                                     'Thunk data index of the original WndProc
Private Const IDX_BTABLE    As Long = 11                                    'Thunk data index of the Before table
Private Const IDX_ATABLE    As Long = 12                                    'Thunk data index of the After table
Private Const IDX_PARM_USER As Long = 13                                    'Thunk data index of the User-defined callback parameter data index

Private z_ScMem             As Long                                         'Thunk base address
Private z_Sc(64)            As Long                                         'Thunk machine-code initialised here
Private z_Funk              As Collection                                   'hWnd/thunk-address collection

Private Declare Function CallWindowProcA Lib "USER32" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "USER32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function IsBadCodePtr Lib "kernel32" (ByVal lpfn As Long) As Long
Private Declare Function IsWindow Lib "USER32" (ByVal hWnd As Long) As Long
Private Declare Function SetWindowLongA Lib "USER32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function VirtualAlloc Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function VirtualFree Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Sub RtlMoveMemory Lib "kernel32" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Public Event Status(ByVal sStatus As String)

Private Const WM_MOUSEMOVE    As Long = &H200
Private Const WM_MOUSELEAVE   As Long = &H2A3
Private Const WM_MOVING       As Long = &H216
Private Const WM_SIZING       As Long = &H214
Private Const WM_EXITSIZEMOVE As Long = &H232
Private Const WM_PAINT = &HF

Private Enum TRACKMOUSEEVENT_FLAGS
  TME_HOVER = &H1&
  TME_LEAVE = &H2&
  TME_QUERY = &H40000000
  TME_CANCEL = &H80000000
End Enum

Private Type TRACKMOUSEEVENT_STRUCT
  cbSize                      As Long
  dwFlags                     As TRACKMOUSEEVENT_FLAGS
  hwndTrack                   As Long
  dwHoverTime                 As Long
End Type

Private bTrack                As Boolean
Private bTrackUser32          As Boolean
Private IsHover               As Boolean
Private bMoving               As Boolean

Public Event Click()
Attribute Click.VB_MemberFlags = "200"
Public Event DblClick()
Public Event MouseEnter()
Public Event MouseLeave()
Public Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Public Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Public Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibraryA Lib "kernel32" (ByVal lpLibFileName As String) As Long
Private Declare Function TrackMouseEvent Lib "USER32" (lpEventTrack As TRACKMOUSEEVENT_STRUCT) As Long
Private Declare Function TrackMouseEventComCtl Lib "Comctl32" Alias "_TrackMouseEvent" (lpEventTrack As TRACKMOUSEEVENT_STRUCT) As Long

'-Candy Button declarations----------------------------------------------------------------------------
Public Enum eAlignment
    PIC_TOP
    PIC_BOTTOM
    PIC_LEFT
    PIC_RIGHT
End Enum

Public Enum eStyle
    XP_Button
    XP_ToolBarButton
    Crystal
    Mac
    Mac_Variation
    WMP
    Plastic
    Iceblock
End Enum

Public Enum eColorScheme
    Custom
    Aqua
    WMP10
    DeepBlue
    DeepRed
    DeepGreen
    DeepYellow
End Enum

Public Enum eState
    eNormal
    ePressed
    eFocus
    eHover
    eChecked
End Enum

Private Type tCrystalParam
    Ref_MixColorFrom As Long
    Ref_Intensity As Long
    Ref_Left As Long
    Ref_Top As Long
    Ref_Radius As Long
    Ref_Height As Long
    Ref_Width As Long
    RadialGXPercent As Long
    RadialGYPercent As Long
    RadialGOffsetX As Long
    RadialGOffsetY As Long
    RadialGIntensity As Long
End Type

Private Type BITMAPINFOHEADER    '40 bytes
   biSize As Long
   biWidth As Long
   biHeight As Long
   biPlanes As Integer
   biBitCount As Integer
   biCompression As Long
   biSizeImage As Long
   biXPelsPerMeter As Long
   biYPelsPerMeter As Long
   biClrUsed As Long
   biClrImportant As Long
End Type

Private Type RGBQUAD
   rgbBlue As Byte
   rgbGreen As Byte
   rgbRed As Byte
   rgbReserved As Byte
End Type

Private Type BITMAP    '24 bytes
  bmType As Long
  bmWidth As Long
  bmHeight As Long
  bmWidthBytes As Long
  bmPlanes As Integer
  bmBitsPixel As Integer
  bmBits As Long
End Type

Private Type BITMAPINFO
  bmiHeader As BITMAPINFOHEADER
  bmiColors As RGBQUAD
End Type

Private Const BI_RGB = 0&
Private Const DIB_RGB_COLORS = 0&

Private m_PictureAlignment                      As eAlignment
Private m_Style                                 As eStyle
Private m_Checked                               As Boolean
Private m_hasFocus                              As Boolean
Private m_Caption                               As String
Private m_StdPicture                            As StdPicture
Private m_Font                                  As StdFont
Private m_ColorButtonHover                      As OLE_COLOR
Private m_ColorButtonUp                         As OLE_COLOR
Private m_ColorButtonDown                       As OLE_COLOR
Private m_ColorBright                           As OLE_COLOR
Private m_ForeColor                             As OLE_COLOR
Private m_DisplayHand                           As Boolean
Private CornerRadius                            As Long
Private m_BorderBrightness                      As Long
Private m_ColorScheme                           As eColorScheme
Private m_bHighLited                            As Boolean
Private m_bIconHighLite                         As Boolean
Private m_lIconHighLiteColor                    As OLE_COLOR
Private m_bCaptionHighLite                      As Boolean
Private m_lCaptionHighLiteColor                 As OLE_COLOR
Private m_bEnabled                              As Boolean
Private m_InitCompleted                         As Boolean
Private hButtonRegion                              As Long

Private Const m_def_ForeColor                   As Long = vbBlack
Private Const m_def_PictureAlignment            As Byte = 0
Private Const DST_TEXT                          As Long = &H1
Private Const DST_PREFIXTEXT                    As Long = &H2
Private Const DST_COMPLEX                       As Long = &H0
Private Const DST_ICON                          As Long = &H3
Private Const DST_BITMAP                        As Long = &H4
Private Const DSS_NORMAL                        As Long = &H0
Private Const DSS_UNION                         As Long = &H10
Private Const DSS_DISABLED                      As Long = &H20
Private Const DSS_MONO                          As Long = &H80
Private Const DSS_RIGHT                         As Long = &H8000
Private Const RGN_XOR = 3
Private Const MK_LBUTTON = &H1

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Type Rect
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Private Declare Function SetWindowRgn Lib "USER32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function DrawState Lib "USER32" Alias "DrawStateA" (ByVal hdc As Long, ByVal hBrush As Long, ByVal lpDrawStateProc As Long, ByVal lParam As Long, ByVal wParam As Long, ByVal X As Long, ByVal Y As Long, ByVal cX As Long, ByVal cY As Long, ByVal fuFlags As Long) As Long
Private Declare Function DrawStateText Lib "USER32" Alias "DrawStateA" (ByVal hdc As Long, ByVal hBrush As Long, ByVal lpDrawStateProc As Long, ByVal lParam As String, ByVal wParam As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal n3 As Long, ByVal n4 As Long, ByVal un As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Private Declare Function TranslateColor Lib "olepro32.dll" Alias "OleTranslateColor" (ByVal clr As OLE_COLOR, ByVal palet As Long, Col As Long) As Long
Private Declare Function PtInRegion Lib "gdi32" (ByVal hRgn As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function InflateRect Lib "USER32" (lpRect As Rect, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetRect Lib "USER32" (lpRect As Rect, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function IsRectEmpty Lib "USER32" (lpRect As Rect) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
Private Declare Function FillRect Lib "USER32" (ByVal hdc As Long, lpRect As Rect, ByVal hBrush As Long) As Long


Public Property Let DisplayHand(newValue As Boolean)
    m_DisplayHand = newValue
End Property

Public Property Get DisplayHand() As Boolean
    DisplayHand = m_DisplayHand
End Property

'Description: Enable or disable the control
Public Property Let Enabled(bEnabled As Boolean)
On Error GoTo Handler
    m_bEnabled = bEnabled
    PropertyChanged "Enabled"
    '/*** added
    DrawButton (eNormal)
Handler:
End Property

Public Property Get Enabled() As Boolean
On Error GoTo Handler
    Enabled = m_bEnabled
    Refresh
    Exit Property
Handler:
End Property

Public Property Let ColorScheme(newValue As eColorScheme)
    Select Case newValue
        Case Aqua
            ColorButtonUp = &HD06720
            ColorButtonHover = &HE99950
            ColorButtonDown = &HA06710
            ColorBright = &HFFEDB0
        Case WMP10
            ColorButtonUp = &HD09060
            ColorButtonHover = &HE06000
            ColorButtonDown = &HA98050
            ColorBright = &HFFFAFA
        Case DeepBlue
            ColorButtonUp = &H800000
            ColorButtonHover = &HA00000
            ColorButtonDown = &HF00000
            ColorBright = &HFF0000
        Case DeepRed
            ColorButtonUp = &H80&
            ColorButtonHover = &HA0&
            ColorButtonDown = &HF0&
            ColorBright = &HFF&
        Case DeepGreen
            ColorButtonUp = &H8000&
            ColorButtonHover = &HA000&
            ColorButtonDown = &HC000&
            ColorBright = &HFF00&
        Case DeepYellow
            ColorButtonUp = &H8080&
            ColorButtonHover = &HA0A0&
            ColorButtonDown = &HC0C0&
            ColorBright = &HFFFF&
    End Select
    m_ColorScheme = newValue
    PropertyChanged "m_ColorScheme"
    DrawButton (eNormal)
End Property

Public Property Get ColorScheme() As eColorScheme
    ColorScheme = m_ColorScheme
End Property

Public Property Let BorderBrightness(newValue As Long)
    m_BorderBrightness = SetBound(newValue, -100, 100)
    PropertyChanged "m_BorderBrightness"
    DrawButton (eNormal)
End Property

Public Property Get BorderBrightness() As Long
    BorderBrightness = m_BorderBrightness
End Property

'/*** enable icon mouse over highliting
Public Property Get IconHighLite() As Boolean
    IconHighLite = m_bIconHighLite
End Property

Public Property Let IconHighLite(PropVal As Boolean)
    m_bIconHighLite = PropVal
    PropertyChanged "IconHighLite"
End Property

'/*** enable icon mouse over highliting
Public Property Get IconHighLiteColor() As OLE_COLOR
    IconHighLiteColor = m_lIconHighLiteColor
End Property

Public Property Let IconHighLiteColor(PropVal As OLE_COLOR)
    m_lIconHighLiteColor = PropVal
    PropertyChanged "IconHighLiteColor"
End Property

'/*** enable caption mouse over highliting
Public Property Get CaptionHighLite() As Boolean
    CaptionHighLite = m_bCaptionHighLite
End Property

Public Property Let CaptionHighLite(PropVal As Boolean)
    m_bCaptionHighLite = PropVal
    PropertyChanged "CaptionHighLite"
End Property

Public Property Get CaptionHighLiteColor() As OLE_COLOR
    CaptionHighLiteColor = m_lCaptionHighLiteColor
End Property

Public Property Let CaptionHighLiteColor(PropVal As OLE_COLOR)
    m_lCaptionHighLiteColor = PropVal
    PropertyChanged "CaptionHighLiteColor"
End Property

Public Property Let ColorBright(newValue As OLE_COLOR)
    m_ColorBright = newValue
    If m_ColorScheme <> Custom Then m_ColorScheme = Custom:  PropertyChanged "m_ColorScheme"
    PropertyChanged "m_ColorBright"
    DrawButton (eNormal)
End Property

Public Property Get ColorBright() As OLE_COLOR
    ColorBright = m_ColorBright
End Property

Public Property Let ColorButtonDown(newValue As OLE_COLOR)
    m_ColorButtonDown = newValue
    If m_ColorScheme <> Custom Then m_ColorScheme = Custom:  PropertyChanged "m_ColorScheme"
    PropertyChanged "m_ColorButtonDown"
    DrawButton (eNormal)
End Property

Public Property Get ColorButtonDown() As OLE_COLOR
    ColorButtonDown = m_ColorButtonDown
End Property

Public Property Let ColorButtonUp(newValue As OLE_COLOR)
    m_ColorButtonUp = newValue
    If m_ColorScheme <> Custom Then m_ColorScheme = Custom:  PropertyChanged "m_ColorScheme"
    PropertyChanged "m_ColorButtonUp"
    DrawButton (eNormal)
End Property

Public Property Get ColorButtonUp() As OLE_COLOR
    ColorButtonUp = m_ColorButtonUp
End Property

Public Property Let ColorButtonHover(newValue As OLE_COLOR)
    m_ColorButtonHover = newValue
    If m_ColorScheme <> Custom Then m_ColorScheme = Custom:  PropertyChanged "m_ColorScheme"
    PropertyChanged "m_ColorButtonHover"
    DrawButton (eNormal)
End Property

Public Property Get ColorButtonHover() As OLE_COLOR
    ColorButtonHover = m_ColorButtonHover
End Property

Public Property Let ForeColor(ByVal NewForeColor As OLE_COLOR)
     m_ForeColor = NewForeColor
     UserControl.ForeColor = m_ForeColor
     PropertyChanged "ForeColor"
     DrawButton (eNormal)
End Property

Public Property Get ForeColor() As OLE_COLOR
     ForeColor = m_ForeColor
End Property

Public Property Set Picture(Value As StdPicture)
    Set m_StdPicture = Value
    PropertyChanged "Picture"
    DrawButton (eNormal)
End Property

Public Property Get Picture() As StdPicture
    Set Picture = m_StdPicture
End Property

Public Property Let Checked(Value As Boolean)
    m_Checked = Value
    If Value Then
        DrawButton (eChecked)
    Else
        If IsHover Then
            DrawButton (eHover)
        Else
            DrawButton (eNormal)
        End If
    End If
    PropertyChanged "Checked"
End Property

Public Property Get Checked() As Boolean
    Checked = m_Checked
End Property

Public Property Let Style(eVal As eStyle)
    If eVal <> m_Style Then
        m_Style = eVal
        PropertyChanged "Style"
        Init_Style
        DrawButton (eNormal)
    End If
End Property

Public Property Get Style() As eStyle
    Style = m_Style
End Property

Public Property Let PictureAlignment(eVal As eAlignment)
    If eVal <> m_PictureAlignment Then
        m_PictureAlignment = eVal
        PropertyChanged "PictureAlignment"
        DrawButton (eNormal)
    End If
End Property

Public Property Get PictureAlignment() As eAlignment
    PictureAlignment = m_PictureAlignment
End Property

Public Property Let Caption(ByVal New_Caption As String)
    m_Caption = New_Caption
    PropertyChanged "Caption"
    DrawButton (eNormal)
End Property

Public Property Get Caption() As String
    Caption = m_Caption
End Property

Public Property Set Font(ByVal NewFont As StdFont)
     Set UserControl.Font = NewFont
     PropertyChanged "Font"
     DrawButton (eNormal)
End Property

Public Property Get Font() As StdFont
     Set Font = UserControl.Font
End Property

Private Sub UserControl_Initialize()
    m_Style = Style
End Sub

Private Sub UserControl_InitProperties()
    If Not Ambient.UserMode Then
        m_bEnabled = True
        m_ColorButtonHover = &HFFC090
        m_ColorButtonUp = &HE99950
        m_ColorBright = &HFFEDB0
        m_ColorButtonDown = &HE99950
        m_Caption = UserControl.Name
        UserControl.Picture = LoadPicture("")
    End If
    m_Caption = Extender.Name
    m_InitCompleted = True
End Sub

Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)
    If Not m_bEnabled Then Exit Sub
    If KeyCode = vbKeyReturn Then UserControl_MouseDown 1, 0, 0, 0
End Sub

Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)
    If Not m_bEnabled Then Exit Sub
    If KeyCode = vbKeyReturn Then
        UserControl_MouseUp 1, 0, 0, 0
        RaiseEvent Click
    End If
End Sub

Private Sub UserControl_Click()
    If Not m_bEnabled Then Exit Sub
    RaiseEvent Click
End Sub

Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Not m_bEnabled Then Exit Sub
    m_hasFocus = True
    DrawButton (ePressed)
    RaiseEvent MouseDown(Button, Shift, X, Y)
End Sub

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Not m_bEnabled Then Exit Sub
    RaiseEvent MouseMove(Button, Shift, X, Y)
    If Button = 1 And (X < 0 Or X > ScaleWidth Or _
        Y < 0 Or Y > ScaleHeight) Then
        IsHover = False
        DrawButton (eNormal)
    End If
End Sub

Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Not m_bEnabled Then Exit Sub
    If Not m_Checked Then
        If IsHover Then
            DrawButton (eHover)
        Else
            If m_hasFocus Then DrawButton (eFocus)
        End If
    End If
    RaiseEvent MouseUp(Button, Shift, X, Y)
End Sub

Private Sub UserControl_DblClick()
    If Not m_bEnabled Then Exit Sub
    DrawButton (ePressed)
    RaiseEvent DblClick
End Sub

Private Sub UserControl_EnterFocus()
    m_hasFocus = True
    If Not m_bEnabled Then Exit Sub
    If Not m_Checked And Not IsHover Then DrawButton (eFocus)
End Sub

Private Sub UserControl_ExitFocus()
    m_hasFocus = False
    If Not m_bEnabled Then Exit Sub
    If Not m_Checked Then DrawButton (eNormal)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    With PropBag
        .WriteProperty "Enabled", m_bEnabled, True
        .WriteProperty "Font", UserControl.Font, Ambient.Font
        .WriteProperty "Caption", m_Caption, UserControl.Name
        .WriteProperty "IconHighLite", m_bIconHighLite, False
        .WriteProperty "IconHighLiteColor", m_lIconHighLiteColor, &HFF00&
        .WriteProperty "CaptionHighLite", m_bCaptionHighLite, False
        .WriteProperty "CaptionHighLiteColor", m_lCaptionHighLiteColor, &HFF00&
        .WriteProperty "ForeColor", m_ForeColor, m_def_ForeColor
        .WriteProperty "Picture", m_StdPicture, Nothing
        .WriteProperty "PictureAlignment", m_PictureAlignment, m_def_PictureAlignment
        .WriteProperty "Style", m_Style, 0
        .WriteProperty "Checked", m_Checked
        .WriteProperty "ColorButtonHover", m_ColorButtonHover
        .WriteProperty "ColorButtonUp", m_ColorButtonUp
        .WriteProperty "ColorButtonDown", m_ColorButtonDown
        .WriteProperty "BorderBrightness", m_BorderBrightness
        .WriteProperty "ColorBright", m_ColorBright
        .WriteProperty "DisplayHand", m_DisplayHand
        .WriteProperty "ColorScheme", m_ColorScheme
    End With
End Sub

Private Sub UserControl_Resize()
    Init_Style
    DrawButton (eNormal)
End Sub

Private Sub UserControl_Show()
    Init_Style
    DrawButton (eNormal)
End Sub

Private Sub DrawButton(vState As eState)
    If m_Checked Then vState = eChecked
    If m_InitCompleted Then
        UserControl.Picture = LoadPicture("")
        Select Case m_Style
            Case XP_Button
                DrawXPButton vState
            Case Crystal, Mac, WMP, Mac_Variation, Iceblock
                DrawCrystalButton vState
            Case Plastic
                DrawPlasticButton vState
            Case XP_ToolBarButton
                DrawXPToolbarButton vState
        End Select
        DrawIconWCaption vState
    End If
End Sub

Public Sub DrawIconWCaption(vState As eState)
    Dim pW As Long, pH As Long, lW As Long, lH As Long
    Dim StartX As Long, StartY As Long, lBrush As Long, lFlags As Long
    Dim lTemp As Long, XCoord As Long, YCoord As Long

    If Not m_StdPicture Is Nothing Then
        pW = ScaleX(m_StdPicture.Width, vbHimetric, vbPixels)
        pH = ScaleY(m_StdPicture.Height, vbHimetric, vbPixels)
    End If

    If LenB(m_Caption) Then
        lW = TextWidth(m_Caption)
        lH = TextHeight(m_Caption)
    End If

    Select Case m_PictureAlignment
        Case Is = PIC_TOP
            StartX = ((ScaleWidth - pW) \ 2) + 1
            StartY = (ScaleHeight - (pH + lH)) \ 2 + 1
            XCoord = Abs(ScaleWidth \ 2 - lW \ 2)
            YCoord = Abs(ScaleHeight \ 2 + pH \ 2 - lH \ 2)
        Case Is = PIC_BOTTOM
            StartX = (ScaleWidth - pW) \ 2
            StartY = (ScaleHeight - (pH - lH)) \ 2 + 1
            XCoord = Abs(ScaleWidth \ 2 - lW \ 2)
            YCoord = Abs(ScaleHeight \ 2 - (pH + lH) \ 2)
        Case Is = PIC_LEFT
            If CornerRadius Then StartX = CornerRadius Else StartX = 8
            StartY = (ScaleHeight - pH) \ 2 + 1
            XCoord = Abs(ScaleWidth \ 2 - lW \ 2)
            YCoord = Abs(ScaleHeight \ 2 - lH \ 2)
        Case Is = PIC_RIGHT
            If CornerRadius Then StartX = ScaleWidth - CornerRadius - pW Else StartX = ScaleWidth - 8 - pW
            StartY = (ScaleHeight - pH) \ 2 + 1
            XCoord = Abs(ScaleWidth \ 2 - lW \ 2)
            YCoord = Abs(ScaleHeight \ 2 - lH \ 2)
    End Select
    If vState = ePressed Then
        StartX = StartX + 1: XCoord = XCoord + 1
        StartY = StartY + 1: YCoord = YCoord + 1
    End If
    If m_bEnabled Then lFlags = DST_PREFIXTEXT Or DSS_NORMAL Else lFlags = DST_PREFIXTEXT Or DSS_DISABLED

    If vState = eHover And m_bCaptionHighLite Then
        lTemp = UserControl.ForeColor
        UserControl.ForeColor = m_lCaptionHighLiteColor
    End If
    If LenB(m_Caption) Then Call DrawStateText(hdc, 0&, 0&, m_Caption, Len(m_Caption), _
               XCoord, YCoord, 0&, 0&, lFlags)
    'Return the old forecolor state
    If vState = eHover And m_bCaptionHighLite Then UserControl.ForeColor = lTemp

    If Not m_StdPicture Is Nothing Then
        If m_StdPicture.Type = vbPicTypeBitmap Then
            lFlags = DST_BITMAP
        ElseIf m_StdPicture.Type = vbPicTypeIcon Then
            lFlags = DST_ICON
        End If
        If Not m_bEnabled Then
            lFlags = lFlags Or DSS_DISABLED 'Draw disabled
        ElseIf vState = eHover And m_bIconHighLite Then
            lBrush = CreateSolidBrush(m_lIconHighLiteColor)
            lFlags = lFlags Or DSS_MONO 'Draw highlighted
        End If
        With m_StdPicture
            DrawState hdc, lBrush, 0, .Handle, 0, CLng(StartX), _
                    CLng(StartY), .Width, .Height, lFlags
        End With
        'm_StdPicture.Render Usercontrol.hDC, CLng(StartX), CLng(StartY), CLng(pW), CLng(pH), _
                    0, m_StdPicture.Height, m_StdPicture.Width, -m_StdPicture.Height, ByVal 0&
        If vState = eHover And m_bIconHighLite Then DeleteObject lBrush
    End If

    UserControl.Refresh
End Sub

Private Function DrawXPToolbarButton(vState As eState)
Dim i As Long
Dim r1 As Long, g1 As Long, b1 As Long
Dim r2 As Long, g2 As Long, b2 As Long
Dim uH As Long, uW As Long
    uH = ScaleHeight - 1
    uW = ScaleWidth - 1
    On Error Resume Next
        Line (0, 0)-(uW, uH), Parent.BackColor, BF
    On Error GoTo 0
    If vState = ePressed Then
        r1 = 220: g1 = 218: b1 = 209
        r2 = 231: g2 = 230: b2 = 224
        For i = 0 To 3
            Line (0, 1 + i)-(uW, 1 + i), RGB(r2 * (i / 3) + r1 - (r1 * (i / 3)), g2 * (i / 3) + g1 - (g1 * (i / 3)), b2 * (i / 3) + b1 - (b1 * (i / 3)))
        Next
        r1 = 231: g1 = 230: b1 = 224
        r2 = 225: g2 = 224: b2 = 216
        For i = 4 To uH - 4
            Line (0, i)-(uW, i), RGB(r2 * (i / (uH - 6)) + r1 - (r1 * (i / (uH - 6))), g2 * (i / (uH - 6)) + g1 - (g1 * (i / (uH - 6))), b2 * (i / (uH - 6)) + b1 - (b1 * (i / (uH - 6))))
        Next
        r1 = 225: g1 = 224: b1 = 216
        r2 = 235: g2 = 234: b2 = 229
        For i = 0 To 3
            Line (0, uH - 4 + i)-(uW, uH - 4 + i), RGB(r2 * (i / 3) + r1 - (r1 * (i / 3)), g2 * (i / 3) + g1 - (g1 * (i / 3)), b2 * (i / 3) + b1 - (b1 * (i / 3)))
        Next
        PSet (1, 0), RGB(215, 215, 204): PSet (0, 1), RGB(215, 215, 204)
        Line (0, 2)-(2, 0), RGB(179, 179, 168) '7617536
        Line (2, 0)-(uW - 2, 0), RGB(157, 157, 146)
        PSet (uW - 1, 0), RGB(215, 215, 204): PSet (uW, 1), RGB(215, 215, 204)
        Line (uW - 2, 0)-(uW, 2), RGB(179, 179, 168) '7617536
        Line (uW, 2)-(uW, uH - 2), RGB(157, 157, 146)
        PSet (uW, uH - 1), RGB(215, 215, 204): PSet (uW - 1, uH), RGB(215, 215, 204)
        Line (uW, uH - 2)-(uW - 2, uH), RGB(179, 179, 168) ' 7617536
        Line (uW - 2, uH)-(2, uH), RGB(157, 157, 146)
        PSet (1, uH), RGB(215, 215, 204): PSet (0, uH - 1), RGB(215, 215, 204)
        Line (2, uH)-(0, uH - 2), RGB(179, 179, 168) '7617536
        Line (0, uH - 2)-(0, 2), RGB(157, 157, 146)
    ElseIf vState = eHover Then
        r1 = 254: g1 = 254: b1 = 253
        r2 = 252: g2 = 252: b2 = 249
        For i = 0 To 3
            Line (0, 1 + i)-(uW, 1 + i), RGB(r2 * (i / 3) + r1 - (r1 * (i / 3)), g2 * (i / 3) + g1 - (g1 * (i / 3)), b2 * (i / 3) + b1 - (b1 * (i / 3)))
        Next
        r1 = 252: g1 = 252: b1 = 249
        r2 = 238: g2 = 237: b2 = 229
        For i = 4 To uH - 4
            Line (0, i)-(uW, i), RGB(r2 * (i / (uH - 6)) + r1 - (r1 * (i / (uH - 6))), g2 * (i / (uH - 6)) + g1 - (g1 * (i / (uH - 6))), b2 * (i / (uH - 6)) + b1 - (b1 * (i / (uH - 6))))
        Next
        r1 = 238: g1 = 237: b1 = 229
        r2 = 215: g2 = 210: b2 = 198
        For i = 0 To 3
            Line (0, uH - 4 + i)-(uW, uH - 4 + i), RGB(r2 * (i / 3) + r1 - (r1 * (i / 3)), g2 * (i / 3) + g1 - (g1 * (i / 3)), b2 * (i / 3) + b1 - (b1 * (i / 3)))
        Next

        PSet (1, 0), RGB(232, 232, 221): PSet (0, 1), RGB(232, 232, 221)
        Line (0, 2)-(2, 0), RGB(216, 216, 205) '7617536
        Line (2, 0)-(uW - 2, 0), RGB(206, 206, 195)
        PSet (uW - 1, 0), RGB(232, 232, 221): PSet (uW, 1), RGB(232, 232, 221)
        Line (uW - 2, 0)-(uW, 2), RGB(216, 216, 205) '7617536
        Line (uW, 2)-(uW, uH - 2), RGB(206, 206, 195)
        PSet (uW, uH - 1), RGB(232, 232, 221): PSet (uW - 1, uH), RGB(232, 232, 221)
        Line (uW, uH - 2)-(uW - 2, uH), RGB(216, 216, 205) ' 7617536
        Line (uW - 2, uH)-(2, uH), RGB(206, 206, 195)
        PSet (1, uH), RGB(232, 232, 221): PSet (0, uH - 1), RGB(232, 232, 221)
        Line (2, uH)-(0, uH - 2), RGB(216, 216, 205) '7617536
        Line (0, uH - 2)-(0, 2), RGB(206, 206, 195)
    ElseIf vState = eChecked Then
        Line (1, 1)-(uW - 1, uH - 1), vbWhite, BF
        PSet (1, 0), RGB(203, 213, 214): PSet (0, 1), RGB(203, 213, 214)
        Line (0, 2)-(2, 0), RGB(152, 175, 190) '7617536
        Line (2, 0)-(uW - 2, 0), RGB(122, 152, 175)
        PSet (uW - 1, 0), RGB(203, 213, 214): PSet (uW, 1), RGB(203, 213, 214)
        Line (uW - 2, 0)-(uW, 2), RGB(152, 175, 190) '7617536
        Line (uW, 2)-(uW, uH - 2), RGB(122, 152, 175)
        PSet (uW, uH - 1), RGB(203, 213, 214): PSet (uW - 1, uH), RGB(203, 213, 214)
        Line (uW, uH - 2)-(uW - 2, uH), RGB(152, 175, 190) ' 7617536
        Line (uW - 2, uH)-(2, uH), RGB(122, 152, 175)
        PSet (1, uH), RGB(203, 213, 214): PSet (0, uH - 1), RGB(203, 213, 214)
        Line (2, uH)-(0, uH - 2), RGB(152, 175, 190) '7617536
        Line (0, uH - 2)-(0, 2), RGB(122, 152, 175)
    End If
End Function

Private Function DrawXPButton(vState As eState)
Dim i As Long
Dim r1 As Long, g1 As Long, b1 As Long
Dim r2 As Long, g2 As Long, b2 As Long
Dim uH As Long, uW As Long
    uH = ScaleHeight - 1
    uW = ScaleWidth - 1
    On Error Resume Next
        Line (0, 0)-(uW, uH), Parent.BackColor, BF
    On Error GoTo 0
    If vState = ePressed Then
        r1 = 209: g1 = 204: b1 = 193
        r2 = 229: g2 = 228: b2 = 221
        For i = 0 To 3
            Line (0, 1 + i)-(uW, 1 + i), RGB(r2 * (i / 3) + r1 - (r1 * (i / 3)), g2 * (i / 3) + g1 - (g1 * (i / 3)), b2 * (i / 3) + b1 - (b1 * (i / 3)))
        Next
        r1 = 229: g1 = 228: b1 = 221
        r2 = 226: g2 = 226: b2 = 218
        For i = 4 To uH - 4
            Line (0, i)-(uW, i), RGB(r2 * (i / (uH - 6)) + r1 - (r1 * (i / (uH - 6))), g2 * (i / (uH - 6)) + g1 - (g1 * (i / (uH - 6))), b2 * (i / (uH - 6)) + b1 - (b1 * (i / (uH - 6))))
        Next
        r1 = 226: g1 = 226: b1 = 218
        r2 = 242: g2 = 241: b2 = 238
        For i = 0 To 4
            Line (0, uH - 4 + i)-(uW, uH - 4 + i), RGB(r2 * (i / 3) + r1 - (r1 * (i / 3)), g2 * (i / 3) + g1 - (g1 * (i / 3)), b2 * (i / 3) + b1 - (b1 * (i / 3)))
        Next
    Else
        r1 = 236: g1 = 235: b1 = 230
        r2 = 214: g2 = 208: b2 = 197
        For i = 0 To uH - 3
            Line (1, i)-(uW, i), RGB(r1 * (i / (uH - 3)) + 255 - (255 * (i / (uH - 3))), g1 * (i / (uH - 3)) + 255 - (255 * (i / (uH - 3))), b1 * (i / (uH - 3)) + 255 - (255 * (i / (uH - 3))))
        Next

        For i = 0 To 3
            Line (0, uH - 4 + i)-(uW, uH - 4 + i), RGB(r2 * (i / 3) + r1 - (r1 * (i / 3)), g2 * (i / 3) + g1 - (g1 * (i / 3)), b2 * (i / 3) + b1 - (b1 * (i / 3)))
        Next
    End If

    Select Case vState
        Case Is = eFocus
            Line (0, 1)-(uW, 1), RGB(206, 231, 255)
            Line (0, 2)-(uW, 2), RGB(188, 212, 246)
            r1 = 188: g1 = 212: b1 = 246
            r2 = 137: g2 = 173: b2 = 228
            For i = 3 To uH - 3
                Line (0, i)-(3, i), RGB(r2 * (i / uH) + r1 - (r1 * (i / uH)), g2 * (i / uH) + g1 - (g1 * (i / uH)), b2 * (i / uH) + b1 - (b1 * (i / uH)))
                Line (uW - 2, i)-(uW, i), RGB(r2 * (i / uH) + r1 - (r1 * (i / uH)), g2 * (i / uH) + g1 - (g1 * (i / uH)), b2 * (i / uH) + b1 - (b1 * (i / uH)))
            Next
            Line (0, uH - 2)-(uW, uH - 2), RGB(137, 173, 228)
            Line (0, uH - 1)-(uW, uH - 1), RGB(105, 130, 238)
        Case Is = eHover
            Line (0, 1)-(uW, 1), RGB(255, 240, 202)
            Line (0, 2)-(uW, 2), RGB(253, 216, 137)
            r1 = 253: g1 = 216: b1 = 137
            r2 = 248: g2 = 178: b2 = 48
            For i = 3 To uH - 3
                Line (0, i)-(3, i), RGB(r2 * (i / uH) + r1 - (r1 * (i / uH)), g2 * (i / uH) + g1 - (g1 * (i / uH)), b2 * (i / uH) + b1 - (b1 * (i / uH)))
                Line (uW - 2, i)-(uW, i), RGB(r2 * (i / uH) + r1 - (r1 * (i / uH)), g2 * (i / uH) + g1 - (g1 * (i / uH)), b2 * (i / uH) + b1 - (b1 * (i / uH)))
            Next
            Line (0, uH - 2)-(uW, uH - 2), RGB(248, 178, 48)
            Line (0, uH - 1)-(uW, uH - 1), RGB(229, 151, 0)
    End Select

    PSet (0, 1), RGB(122, 149, 168): PSet (1, 0), RGB(122, 149, 168)
    Line (0, 2)-(2, 0), RGB(37, 87, 131) '7617536
    Line (2, 0)-(uW - 2, 0), 7617536
    PSet (uW - 1, 0), RGB(122, 149, 168): PSet (uW, 1), RGB(122, 149, 168)
    Line (uW - 2, 0)-(uW, 2), RGB(37, 87, 131)  '7617536
    Line (uW, 2)-(uW, uH - 2), 7617536
    PSet (uW, uH - 1), RGB(122, 149, 168): PSet (uW - 1, uH), RGB(122, 149, 168)
    Line (uW, uH - 2)-(uW - 2, uH), RGB(37, 87, 131) ' 7617536
    Line (uW - 2, uH)-(2, uH), 7617536
    PSet (1, uH), RGB(122, 149, 168): PSet (0, uH - 1), RGB(122, 149, 168)
    Line (2, uH)-(0, uH - 2), RGB(37, 87, 131)  '7617536
    Line (0, uH - 2)-(0, 2), 7617536
End Function

Private Function DrawCrystalButton(vState As eState)
    Dim CrystalParam As tCrystalParam
    If m_Style = Mac Then 'Mac
        'CrystalParam.Ref_MixColorFrom = 0 '20
        CrystalParam.Ref_Intensity = 70 '50
        CrystalParam.Ref_Left = (CornerRadius \ 3)
        'CrystalParam.Ref_Top = 0
        CrystalParam.Ref_Height = 12 'CornerRadius - 2
        CrystalParam.Ref_Width = ScaleWidth + 2 * CornerRadius
        CrystalParam.Ref_Radius = 10 'CornerRadius \ 2
        CrystalParam.RadialGXPercent = 200
        CrystalParam.RadialGYPercent = 100 - (7 * 100 \ ScaleHeight)
        If CrystalParam.RadialGYPercent > 80 Then CrystalParam.RadialGYPercent = 80
        CrystalParam.RadialGOffsetX = ScaleWidth / 2
        CrystalParam.RadialGOffsetY = ScaleHeight
        CrystalParam.RadialGIntensity = 130
    ElseIf m_Style = WMP Then 'WMP
        CrystalParam.Ref_Intensity = 40
        CrystalParam.Ref_Left = -CornerRadius \ 2 - 1
        CrystalParam.Ref_Top = -CornerRadius
        CrystalParam.Ref_Height = (CornerRadius) + 1
        CrystalParam.Ref_Width = ScaleWidth + 2 * CornerRadius
        CrystalParam.Ref_Radius = CornerRadius
        CrystalParam.RadialGXPercent = 60
        CrystalParam.RadialGYPercent = 60
        CrystalParam.RadialGOffsetX = ScaleWidth / 2
        CrystalParam.RadialGOffsetY = ScaleHeight
        CrystalParam.RadialGIntensity = 130
    ElseIf m_Style = Mac_Variation Then
        CrystalParam.Ref_Intensity = 70
        CrystalParam.Ref_Left = (CornerRadius \ 3) - 1
        CrystalParam.Ref_Height = CornerRadius
        CrystalParam.Ref_Width = ScaleWidth + 2 * CornerRadius
        'CrystalParam.Ref_Top = 0
        CrystalParam.Ref_Radius = (CornerRadius \ 2)
        CrystalParam.RadialGXPercent = 200
        CrystalParam.RadialGYPercent = 70
        CrystalParam.RadialGOffsetX = ScaleWidth / 2
        CrystalParam.RadialGOffsetY = ScaleHeight
        CrystalParam.RadialGIntensity = 130
    ElseIf m_Style = Crystal Then
        CrystalParam.Ref_Intensity = 50
        CrystalParam.Ref_Left = CornerRadius \ 2
        CrystalParam.Ref_Height = CornerRadius * 1.1
        CrystalParam.Ref_Width = ScaleWidth + 2 * CornerRadius
        CrystalParam.Ref_Top = 1
        CrystalParam.Ref_Radius = CornerRadius \ 2
        CrystalParam.RadialGXPercent = 300
        CrystalParam.RadialGYPercent = 60
        CrystalParam.RadialGOffsetX = ScaleWidth / 2
        CrystalParam.RadialGOffsetY = ScaleHeight
        CrystalParam.RadialGIntensity = 120
    ElseIf m_Style = Iceblock Then
        CrystalParam.Ref_Intensity = 50
        CrystalParam.Ref_Left = CornerRadius / 2
        CrystalParam.Ref_Top = 2
        CrystalParam.Ref_Height = CornerRadius + 1
        CrystalParam.Ref_Width = ScaleWidth - CornerRadius
        CrystalParam.Ref_Radius = CornerRadius / 2
        CrystalParam.RadialGXPercent = 60
        CrystalParam.RadialGYPercent = 60
        CrystalParam.RadialGOffsetX = ScaleWidth / 2
        CrystalParam.RadialGOffsetY = ScaleHeight / 2
        CrystalParam.RadialGIntensity = 100
    End If
    Select Case vState
        Case eHover
            DrawCrystal ScaleWidth, ScaleHeight, m_ColorButtonHover, CrystalParam
        Case ePressed, eChecked
            DrawCrystal ScaleWidth, ScaleHeight, ColorButtonDown, CrystalParam
        Case eNormal, eFocus
            DrawCrystal ScaleWidth, ScaleHeight, m_ColorButtonUp, CrystalParam
    End Select
End Function

Private Sub DrawCrystal(lWidth As Long, lHeight As Long, ByVal Color As Long, CrystalParam As tCrystalParam)
Dim i As Long, j As Long, ptColor As Long, ColorBright As Long
Dim RGXPercent As Single, RGYPercent As Single, RadialGradient As Long
Dim hHlRgn As Long, Bordercolor As Long, nBrush As Long, ClientRct As Rect

    If CornerRadius < 1 Then CornerRadius = 1
    ColorBright = m_ColorBright
    'In Disabled state Color = 11583680 (light gray)
    'and ColorBright = vbWhite
    If Not m_bEnabled Then Color = 11583680: ColorBright = vbWhite

    RGYPercent = (100 - CrystalParam.RadialGYPercent) / (lHeight * 2)
    RGXPercent = (100 - CrystalParam.RadialGXPercent) / lWidth

    If m_BorderBrightness >= 0 Then
        Bordercolor = BlendColors(Color, vbWhite, m_BorderBrightness)
    Else
        Bordercolor = BlendColors(Color, vbBlack, -m_BorderBrightness)
    End If
    'Create Highlite region (hHlRgn), we will use PtInRegion to
    'check if we are inside the highlite Rounded rectangle
    'you could simply use IsInRoundRect(i ,j ,CrystalParam.Ref_Left, CrystalParam.Ref_Top, CrystalParam.Ref_Width, CrystalParam.Ref_Height, CrystalParam.Ref_Radius * 2, CrystalParam.Ref_Radius * 2)
    'instead of PtInRegion and remove these lines, but will be slower.
    hHlRgn = CreateRoundRectRgn(CrystalParam.Ref_Left, CrystalParam.Ref_Top, CrystalParam.Ref_Width, CrystalParam.Ref_Height, CrystalParam.Ref_Radius * 2, CrystalParam.Ref_Radius * 2)
    'Paint the Background Color
    SetRect ClientRct, 0, 0, lWidth, lHeight
    nBrush = CreateSolidBrush(Color)
    FillRect hdc, ClientRct, nBrush
    DeleteObject nBrush
    'Draw a radial Gradient
    DrawElipse hdc, CrystalParam, lWidth, lHeight, Color, ColorBright
    For j = 0 To lHeight
        For i = 0 To lWidth \ 2
            If PtInRegion(hButtonRegion, i, j) Then
                'We are inside the button
                If PtInRegion(hHlRgn, i, j) Then
                    ptColor = BlendColors(vbWhite, Color, CrystalParam.Ref_MixColorFrom + j * CrystalParam.Ref_Intensity \ CornerRadius)
                    Line (i, j)-(lWidth - i + 1, j), ptColor
                    i = 0: j = j + 1
                End If
            Else
                'this draw a thin border
                SetPixelV hdc, i, j, Bordercolor
                SetPixelV hdc, lWidth - i, j, Bordercolor
            End If
        Next i
    Next j
    DeleteObject hHlRgn
End Sub

Private Sub DrawElipse(lhDC As Long, CrystalParam As tCrystalParam, lWidth, lHeight, FromColor As Long, ToColor As Long)
Dim oldBrush As Long, newBrush As Long, newPen As Long, oldPen As Long
Dim incX As Single, incY As Single, RadX As Long, RadY As Long
Dim klr As Long, rc As Rect
    klr = 1
    RadX = CrystalParam.RadialGXPercent * lWidth / 100
    RadY = CrystalParam.RadialGYPercent * lHeight / 100
    SetRect rc, CrystalParam.RadialGOffsetX - RadX, CrystalParam.RadialGOffsetY - RadY, _
                CrystalParam.RadialGOffsetX + RadX, CrystalParam.RadialGOffsetY + RadY
    incX = 1: incY = 1
    If RadX > RadY Then
        incX = (RadX / RadY)
    Else
        incY = (RadY / RadX)
    End If
    newBrush = CreateSolidBrush(FromColor)
    oldBrush = SelectObject(lhDC, newBrush)
    newPen = CreatePen(5, 0, FromColor)
    oldPen = SelectObject(lhDC, newPen)
    Do Until Not IsRectEmpty(rc) = 0
        Ellipse lhDC, rc.Left, rc.Top, rc.Right, rc.Bottom
        InflateRect rc, -incX, -incY
        klr = klr + 1
        newBrush = CreateSolidBrush(BlendColors(FromColor, ToColor, klr * CrystalParam.RadialGIntensity / RadY))
        DeleteObject SelectObject(lhDC, newBrush)
    Loop
    DeleteObject SelectObject(lhDC, oldBrush)
    DeleteObject SelectObject(lhDC, oldPen)
End Sub

Private Function DrawPlasticButton(vState As eState)
    Select Case vState
        Case eHover
            DrawPlastic 0, 0, ScaleWidth - 1, ScaleHeight - 1, m_ColorButtonHover
        Case ePressed, eChecked
            DrawPlastic 0, 0, ScaleWidth - 1, ScaleHeight - 1, ColorButtonDown
        Case eNormal, eFocus
            DrawPlastic 0, 0, ScaleWidth - 1, ScaleHeight - 1, m_ColorButtonUp
    End Select
End Function

Private Sub DrawPlastic(X As Long, Y As Long, lWidth As Long, lHeight As Long, Color As Long)
Dim i As Long, j As Long, HighlightColor As Long, ShadowColor As Long
Dim ptColor As Long, LinearGPercent As Long
    ShadowColor = BlendColors(vbBlack, Color, 50)

    For j = 0 To lHeight
        If j < CornerRadius Then
            HighlightColor = BlendColors(vbWhite, Color, j * 30 \ CornerRadius)
        End If
        LinearGPercent = Abs((2 * j - lHeight) * 100 \ lHeight)
        For i = 0 To lWidth \ 2
            If IsInRoundRect(i, j, 1, 1, lWidth - 2, lHeight - 2, CornerRadius) Then
                'Drawing the button properly
                If IsInRoundRect(i, j, 4, 2, lWidth - CornerRadius, 2 * CornerRadius - 1, 2 * CornerRadius \ 3) _
                And Not IsInRoundRect(i, j, 4, CornerRadius \ 2, lWidth - CornerRadius, 2 * CornerRadius - 1, 2 * CornerRadius \ 3) Then
                    ptColor = HighlightColor 'draw reflected highlight
                Else
                    ptColor = BlendColors(Color, m_ColorBright, LinearGPercent)
                End If
                SetPixelV hdc, i, j, ptColor
                SetPixelV hdc, lWidth - i, j, ptColor
            ElseIf IsInRoundRect(i, j, 0, 0, lWidth, lHeight, CornerRadius) Then
                'this draw a thin border
                SetPixelV hdc, i, j, ShadowColor
                SetPixelV hdc, lWidth - i, j, ShadowColor
            End If
        Next i
    Next j
End Sub

'/----------------------------------------------------------------------------------/
'/                                                                                  /
'/ Init_Style                                                                       /
'/ -------------------                                                              /
'/ Description:                                                                     /
'/                                                                                  /
'/ Init_Style will create the window region according to the button style           /
'/ and will be responsible of storing the same region (but without the border)      /
'/ in hButtonRegion. This will be used later to determine if a point                /
'/ is inside the button region.                                                     /
'/----------------------------------------------------------------------------------/
Private Sub Init_Style()
Dim lCornerRad As Long
    'Remove the older Region
    If hButtonRegion Then DeleteObject hButtonRegion
    Select Case m_Style
        Case Crystal, WMP, Mac_Variation
            lCornerRad = SetBound(ScaleHeight \ 2 + 1, 1, ScaleWidth \ 2)
        Case Mac
            lCornerRad = 12
        Case Iceblock
            lCornerRad = SetBound(ScaleHeight \ 4 + 1, 1, ScaleWidth \ 4)
        Case Plastic
            lCornerRad = SetBound(ScaleHeight \ 3, 1, ScaleWidth \ 3)
    End Select

    If m_Style = Crystal Or m_Style = WMP Or m_Style = Mac Or _
        m_Style = Mac_Variation Or m_Style = Plastic Or m_Style = Iceblock Then
        hButtonRegion = CreateRoundedRegion(0, 0, ScaleWidth, ScaleHeight, lCornerRad)

        'Set the Button Region
        Call SetWindowRgn(hWnd, hButtonRegion, True)
        DeleteObject hButtonRegion
        'Store the region but exclude the border
        hButtonRegion = CreateRoundedRegion(1, 1, ScaleWidth - 2, ScaleHeight - 2, lCornerRad)
    Else
        Call SetWindowRgn(hWnd, 0, True)
    End If
End Sub

'/----------------------------------------------------------------------------------/
'/                                                                                  /
'/ CreateRoundedRegion                                                              /
'/ -------------------                                                              /
'/ Description:                                                                     /
'/                                                                                  /
'/ CreateRoundedRegion returns a rounded region based on a given Width, Height      /
'/ and a CornerRadius. We will use this function instead of normal CreateRoundRect  /
'/ because this will give us a better rounded rectangle for our purposes.           /
'/----------------------------------------------------------------------------------/
Private Function CreateRoundedRegion(X As Long, Y As Long, lWidth As Long, lHeight As Long, Radius As Long) As Long
Dim i As Long, j As Long, i2 As Long, j2 As Long, i3 As Long, j3 As Long
Dim hRgn As Long
    CornerRadius = Radius
    If CornerRadius < 1 Then CornerRadius = 1
    '/* Create initial region
    hRgn = CreateRectRgn(0, 0, X + lWidth, Y + lHeight)
    For j = 0 To Y + lHeight
        For i = 0 To (X + lWidth) \ 2
            If Not IsInRoundRect(i, j, X, Y, lWidth, lHeight, CornerRadius) Then
                '/* substract the pixels outside of the rounded rectangle
                '/* (it doesn't exclude the border)
                If Not j = j2 Then
                    '*** If 2 * i2 <> Width Then i2 = i2 + 1
                    ExcludePixelsFromRegion hRgn, X + lWidth - i2, j2, lWidth - i, j
                    If Not 2 * i2 = X + lWidth Then
                        i2 = i2 + 1
                    End If
                    ExcludePixelsFromRegion hRgn, i, j, i2, j2
                End If
                i2 = i
                j2 = j
            End If
        Next i
    Next j
    CreateRoundedRegion = hRgn
End Function

Private Sub ExcludePixelsFromRegion(hRgn As Long, X1 As Long, Y1 As Long, X2 As Long, Y2 As Long)
    Dim hRgnTemp As Long
    hRgnTemp = CreateRectRgn(X1, Y1, X2, Y2)
    CombineRgn hRgn, hRgn, hRgnTemp, RGN_XOR
    DeleteObject hRgnTemp
End Sub

Private Function IsInRoundRect(i As Long, j As Long, X As Long, Y As Long, lWidth As Long, lHeight As Long, Radius As Long) As Boolean
Dim offX As Long, offY As Long
    offX = i - X
    offY = j - Y
    If offY > Radius And offY + Radius < lHeight And offX > Radius And offX + Radius < lWidth Then
        '/* This is to catch early most cases
        IsInRoundRect = True
    ElseIf offX < Radius And offY <= Radius Then
        If IsInCircle(offX - Radius, offY, Radius) Then IsInRoundRect = True
    ElseIf offX + Radius > lWidth And offY <= Radius Then
        If IsInCircle(offX - lWidth + Radius, offY, Radius) Then IsInRoundRect = True
    ElseIf offX < Radius And offY + Radius >= lHeight Then
        If IsInCircle(offX - Radius, offY - lHeight + Radius * 2, Radius) Then IsInRoundRect = True
    ElseIf offX + Radius > lWidth And offY + Radius >= lHeight Then
        If IsInCircle(offX - lWidth + Radius, offY - lHeight + Radius * 2, Radius) Then IsInRoundRect = True
    Else
        If offX > 0 And offX < lWidth And offY > 0 And offY < lHeight Then IsInRoundRect = True
    End If
End Function

Private Function IsInCircle(ByRef X As Long, ByRef Y As Long, ByRef r As Long) As Boolean
Dim lResult As Long
    '/* this detect a circunference centered on y=-r and x=0
    lResult = (r * r) - (X * X)
    If lResult >= 0 Then
        lResult = Sqr(lResult)
        If Abs(Y - r) < lResult Then IsInCircle = True
    End If
End Function

Public Function BlendColors(ByRef Color1 As Long, ByRef Color2 As Long, ByRef Percentage As Long) As Long
Dim r(2) As Long, g(2) As Long, b(2) As Long

    Percentage = SetBound(Percentage, 0, 100)

    GetRGB r(0), g(0), b(0), Color1
    GetRGB r(1), g(1), b(1), Color2

    r(2) = r(0) + (r(1) - r(0)) * Percentage \ 100
    g(2) = g(0) + (g(1) - g(0)) * Percentage \ 100
    b(2) = b(0) + (b(1) - b(0)) * Percentage \ 100

    BlendColors = RGB(r(2), g(2), b(2))
End Function

Private Function SetBound(ByRef Num As Long, ByRef MinNum As Long, ByRef MaxNum As Long) As Long
    If Num < MinNum Then
        SetBound = MinNum
    ElseIf Num > MaxNum Then
        SetBound = MaxNum
    Else
        SetBound = Num
    End If
End Function

Public Sub GetRGB(r As Long, g As Long, b As Long, Color As Long)
Dim TempValue As Long
    TranslateColor Color, 0, TempValue
    r = TempValue And &HFF&
    g = (TempValue And &HFF00&) \ &H100&
    b = (TempValue And &HFF0000) \ &H10000
End Sub

Private Function HiWord(lDWord As Long) As Integer
  HiWord = (lDWord And &HFFFF0000) \ &H10000
End Function

Private Function LoWord(lDWord As Long) As Integer
  If lDWord And &H8000& Then
    LoWord = lDWord Or &HFFFF0000
  Else
    LoWord = lDWord And &HFFFF&
  End If
End Function
'Read the properties from the property bag - also, a good place to start the subclassing (if we're running)
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  Dim w As Long
  Dim h As Long
  Dim s As String

    With PropBag
        m_bEnabled = .ReadProperty("Enabled", True)
        Set UserControl.Font = .ReadProperty("Font", Ambient.Font)
        m_Caption = .ReadProperty("Caption", UserControl.Name)
        m_bCaptionHighLite = .ReadProperty("CaptionHighLite", False)
        m_lCaptionHighLiteColor = .ReadProperty("CaptionHighLiteColor", &HFF00&)
        m_bIconHighLite = .ReadProperty("IconHighLite", False)
        m_lIconHighLiteColor = .ReadProperty("IconHighLiteColor", &HFF00&)
        m_ForeColor = .ReadProperty("ForeColor", m_def_ForeColor)
        Set m_StdPicture = .ReadProperty("Picture", Nothing)
        m_PictureAlignment = .ReadProperty("PictureAlignment", m_def_PictureAlignment)
        m_Style = .ReadProperty("Style", 0)
        m_Checked = .ReadProperty("Checked", m_Checked)
        m_ColorButtonHover = .ReadProperty("ColorButtonHover", &HFFC090)
        m_ColorButtonUp = .ReadProperty("ColorButtonUp", &HE99950)
        m_ColorButtonDown = .ReadProperty("ColorButtonDown", &HE99950)
        m_ColorBright = .ReadProperty("ColorBright", &HFFEDB0)
        m_BorderBrightness = .ReadProperty("BorderBrightness", 0)
        m_DisplayHand = .ReadProperty("DisplayHand", False)
        m_ColorScheme = .ReadProperty("ColorScheme", 0)
    End With
    If m_DisplayHand Then UserControl.MousePointer = vbCustom Else UserControl.MousePointer = vbArrow
    UserControl.ForeColor = m_ForeColor

  If Ambient.UserMode Then                                                              'If we're not in design mode
    bTrack = True
    bTrackUser32 = IsFunctionExported("TrackMouseEvent", "User32")

    If Not bTrackUser32 Then
      If Not IsFunctionExported("_TrackMouseEvent", "Comctl32") Then
        bTrack = False
      End If
    End If

    If bTrack Then
      'OS supports mouse leave, so let's subclass for it
      With UserControl
        'Subclass the UserControl
        sc_Subclass .hWnd
        sc_AddMsg .hWnd, WM_PAINT, MSG_BEFORE
        sc_AddMsg .hWnd, WM_MOUSEMOVE
        sc_AddMsg .hWnd, WM_MOUSELEAVE
      End With
    End If
  End If
  m_InitCompleted = True
End Sub

'The control is terminating - a good place to stop the subclasser
Private Sub UserControl_Terminate()
  sc_Terminate                                                              'Terminate all subclassing
  If hButtonRegion Then DeleteObject hButtonRegion
End Sub

'Determine if the passed function is supported
Private Function IsFunctionExported(ByVal sFunction As String, ByVal sModule As String) As Boolean
  Dim hMod        As Long
  Dim bLibLoaded  As Boolean

  hMod = GetModuleHandleA(sModule)

  If hMod = 0 Then
    hMod = LoadLibraryA(sModule)
    If hMod Then
      bLibLoaded = True
    End If
  End If

  If hMod Then
    If GetProcAddress(hMod, sFunction) Then
      IsFunctionExported = True
    End If
  End If

  If bLibLoaded Then
    FreeLibrary hMod
  End If
End Function

'Track the mouse leaving the indicated window
Private Sub TrackMouseLeave(ByVal lng_hWnd As Long)
  Dim tme As TRACKMOUSEEVENT_STRUCT

  If bTrack Then
    With tme
      .cbSize = Len(tme)
      .dwFlags = TME_LEAVE
      .hwndTrack = lng_hWnd
    End With

    If bTrackUser32 Then
      TrackMouseEvent tme
    Else
      TrackMouseEventComCtl tme
    End If
  End If
End Sub

'-SelfSub code------------------------------------------------------------------------------------
Private Function sc_Subclass(ByVal lng_hWnd As Long, _
                    Optional ByVal lParamUser As Long = 0, _
                    Optional ByVal nOrdinal As Long = 1, _
                    Optional ByVal oCallback As Object = Nothing, _
                    Optional ByVal bIdeSafety As Boolean = True) As Boolean 'Subclass the specified window handle
'*************************************************************************************************
'* lng_hWnd   - Handle of the window to subclass
'* lParamUser - Optional, user-defined callback parameter
'* nOrdinal   - Optional, ordinal index of the callback procedure. 1 = last private method, 2 = second last private method, etc.
'* oCallback  - Optional, the object that will receive the callback. If undefined, callbacks are sent to this object's instance
'* bIdeSafety - Optional, enable/disable IDE safety measures. NB: you should really only disable IDE safety in a UserControl for design-time subclassing
'*************************************************************************************************
Const CODE_LEN      As Long = 260                                           'Thunk length in bytes
Const MEM_LEN       As Long = CODE_LEN + (8 * (MSG_ENTRIES + 1))            'Bytes to allocate per thunk, data + code + msg tables
Const PAGE_RWX      As Long = &H40&                                         'Allocate executable memory
Const MEM_COMMIT    As Long = &H1000&                                       'Commit allocated memory
Const MEM_RELEASE   As Long = &H8000&                                       'Release allocated memory flag
Const IDX_EBMODE    As Long = 3                                             'Thunk data index of the EbMode function address
Const IDX_CWP       As Long = 4                                             'Thunk data index of the CallWindowProc function address
Const IDX_SWL       As Long = 5                                             'Thunk data index of the SetWindowsLong function address
Const IDX_FREE      As Long = 6                                             'Thunk data index of the VirtualFree function address
Const IDX_BADPTR    As Long = 7                                             'Thunk data index of the IsBadCodePtr function address
Const IDX_OWNER     As Long = 8                                             'Thunk data index of the Owner object's vTable address
Const IDX_CALLBACK  As Long = 10                                            'Thunk data index of the callback method address
Const IDX_EBX       As Long = 16                                            'Thunk code patch index of the thunk data
Const SUB_NAME      As String = "sc_Subclass"                               'This routine's name
  Dim nAddr         As Long
  Dim nID           As Long
  Dim nMyID         As Long

  If IsWindow(lng_hWnd) = 0 Then                                            'Ensure the window handle is valid
    zError SUB_NAME, "Invalid window handle"
    Ex 'T0'Thipx 'T0'Thvalid wind2E safe,o0'T-u,a4 e44444444 safe---------------
    $pIColor =UB_hen
        hButtonReW03, 213, 214)
        Line (uW - .mpWhe bf the Calcontrol is terminat uH :is terminat uH :is terminat uH :isg+1ine (u c .mp (u c .ion Then DeleteObject hBuW, 2), RGB(253, 216, 137)
  gggggcallbtlDWorusXall uW = Scaject_LEAVE
      .hwndTrack = lng_hWnd
    End With

    IslalFree funtonHover", &HFFC090)
        P uW = A090)90)
'aO 40
        Crys0TR u4nunhwnH - 4 unk, data + cng_hWmCtl tmeCdow t)253, 216, 137)
  ggerminat uH o) .ion Then Delet6, 137)
  ggerminat uH o) .ion Theng, CrystalParam As tCrystalParam, lWidth, lHeigWIdpg) As BoWMf IsWindow(lng_hAs Long = 10                                            'Thunk data index of  vbWhite
ndex of  lse
 ina    Cre lHeigWI5  As ---nse
    LoWord = lDWord And &HFFFF&
1ubclass
 ECam, lWidth,,,,,,,,,,,Thunk datat lHeigWIde window hHWnd
    End          4)) .ion Idpg) As BoWMf IsWindow(lng_hAs Long = FicDow(lng_hAs Long = FicDow(lng_hAs Long = FicDow(lng_hAs Long = FicDow(lng_hAs Long = FicDow(lng_hAs 47
  ggerm)'Ensure thr  'In Disabled state Color =0)
'aO 40
        Co               s Long = FO         s   O   94_r As Long)
Dim oldBrush As Long, newBrush As Long, newPen As Long, oldPen As LonOed  As Boolean

  hMod = GetModuC  O   94_r As Long'Thunk data index of the CallWindowProc function address
ConwProc function afunction addresabled stx of tan(uW -ctiongng  uH)method, etc.IePaRGB                              Theng, CryDePaRGB     zError SUB_NAME, 77LonOed  As Boolean

  hMod = GetModuC4   Theng, CryDePaRGBect hn Disabled state Color =0)
'aO 40
     ----------i Get,lingng nb= 2End I-------ist IDX_FREE      Af the SetWindowsLob= 2oaded  ALd I---eng-----------roc function adiLoneb2s we're rusdBrush AsC22222222AALd s Belr-----g     As Long = &H40&                         t uH :isg+1-roc function adistalParam As tCrystalPi0ram As tHeigW-roc m AA----E    As Long = 3                              Lon-roc functed memory flag
ConstCigWIdpg) As BoWMf IsWindow(lng_hAs Long = 10        7 LoWord = lDWord And &HFFFF&
1ubclass
 ECam     (Brush As  Als-E   iA1ubclass
 ECam     (Brush As  Als-thiiiiiiiiii*****w&HFFTrue) As D=icDow(lnss
 40er As Long Loindow hHWnd
sh As   &HFFHWnd
shs--- As  Als-thiiiib        s-t / (uH - 6))assndow hHAs D=P          s-thiiiiiiiiii*****w&aRGBecthe Virtu*1-roct0w 1-r:sLhAity = 130
    ElseIf m_Style = WMP Then 'WMP
        CrystalParam.Ref_Intensity = 40
        Crysta
  If IsWindow(lng_hWn          tyle = WMP ThenC,i    Crystaw(lIf IsWin(, newPen As LTracag
ch index 2 = WMP Theacag
chdystar Long = 10  ndow (, nag
1= 1bIdeSafety As Boolean = Trb
       = lng_hWnd
    End WiSres. NB: you shoulSafett 0)B: ls-thiiyDePaRGB     zElass
 ECam     (B1As   &HFFHong. NB: yoe (b- 4 unk, dI---eng----------l   1bIdeSafaca2rted(B     = lng_hWndsoulSafett 0)B: ls-thiiyDePaRGB     zElass
 ECam     (B1As   &HFFHong. NB: yoe (b- 4 unk, dI---eng----------l hWndsoulSafett 0)B:Epc
    an WMPensit hW---C22222222AALd s Belrn.Refru4 unk, dI--(b- 4 uC2bIdeSafe  IDX_SWL g = FicDowME, newPen0'Thipx 'T hW-   ndsoulSafett Elass
 dsoulS)' unk, dI--(b- 4 uC2bIdeSafe  IDX_SWLelrn.Refnction sc_Subclass(ByV(hSWLelrn.Refnction sc_Subclasthw(lnunk,AL, 232, 22tt ElI--(b- 4 uCMls-tasthwYhW-   ndsoulS0'TElI--(b- 4 uCMls-ubcunk,AL, 23ndsoulSafulSFFHWnd
shs--- As  Als-thiiiib          End WiSres. NB: )--------l hWndsoulSafett 0)B:EpiiiHWndunk,AL, 2-unk,AL, 2aEha hW-   nds O   H - 1)-thiiiib         If hButtonRegio
 ECam  A h)-thiiiHWndunk,AL, 2-unk,AL, 2aEha hW-   nds O   H - 1)-thiiiib         If hButtonRegio
 ECam  A h)-thiiiHWndunk,AL, 2-unk,AL, 2aEha hW-   nds O   H L--l hWndP
  If I      Line (uW -lrn.Refncw   line (uW -so

        CrystalParam1ine Bng  ter02uC2bIdeSa*********uCMl0m.Ref_HWndunk,As  Als-thiiiib        s-&          .<.s9sja=  .<.s9sja=  .<.s9sja=  .< p5Ciiib x etring) As Boolean
  Dim   I--(rCim   I--(2ast handle"
    Als-thm1ine Bng  te<.s9sja=  A&
    a,AL, 2te Col LoWord = lDWord And &HFFFF&
1ubclak, dI---eng-XX   a,AL, 2pne Bng  ter02uC2bIdeSa**--------l hWndsou(, WM_PAInate()
(CMPensit hW---C222222f m_StylCornhW---C2222nhW---C2ine (uW -l4cT0lse" \LegFFHW lng_ PSewYhW-   ndsoulS0'TElI--(b- 4 -mrcentage,ae()
(Cv_COMMICorn-thiiiib
(Cv
 z1rSty ndsoulS0'TElI--(b- 4 -mrcent5pc
    an WMMMMMMMMMMMMMMMMMMM3thiiiib  0B    ha("Tx(BulS0'TElI--(b- 4TElInHighLite = .ReadProperty("CaptionHighLit 0B  6b  0B    haNA9bIdeSa**-------s9sjaF00&yDePaRGBect hnwAA.RadialGInIoI--(rCim para CryDePaRGBOeddial4rOeddial4522222rcenRSa*'TElI--(b- 4TElInHighLite = .ReadProperty("CaptionHighLit 01te = Vmm para CryDePaRGBOeddial4rOed BF
    On Error GoTLnd If
       NB: )--------lddial4rOeddial BF1If

 dsoulS)' unk, dI--(b- 4 uC2bIdeSafe  IDX_SWLelICornkUser32 Then
 rOeddial BF1If
- 1)-thiiiib         II--(rCim lI--(b- 4TElInHighHighLiteeh
    Percentage = S"nkUser32 Then   IsWin(, nLite dsoulS)' unk, dI--(b- 4 uC2bIdeSafe  IDX_SWradiaDim   I-DX_Au4 ----/
Prl.FonD 4 u f_Intensity = 40
        Crysta
  If IuR    ee the wi,Tcrl.Fb. NB: you hugdreeoWorae  IDX_SWLelY       e dm.Ref_Left = (CornerRadius \ 3) - 1
 **-------mldBrusY       e dm.Ref_Left = mA 4TElInHighHighLiteeh
  Y, lWidth4 / uH) + uW, 1), RGB(206, 231, 255)
= C19sja=  .<.s9'1)- 47ao       ornerRadius \ g---i Get,lingng nb= te = rom Scal a,     ElseIfcT0Gou hugdreeoWorae  IDX_Se e dm.Ref_Left = (CornerRadius \ 3) - 1
 **- TElInHighLite     (CornerRawColor As Longrae ft = (Cal452dialGXPershoeng, CryDeFFHong. NB: yoe (b- ttonRegio
s Lonafety As lV hadi---s9sjaF00&y_reeugdry_r II--(rI0ng nb= 0ng nb= 0ngPRiograeCorne--(t
  d I-------ist IDX_FREE        Als-:patch index of ar)z.r)' u  an WMPensit - 4 + i)-(uW, uH - 4 + i), RGB(r"st IDX_FREE   Als-:patch y_reB(r"st IDX_FREE   Als-:patch y_reB(r"st IDX_FREE   Als-:patch y_reB(r"st IDX_FREE   Als-:patch y_reB(r"st IDX_FREE   Als-:patch y_reB(r"st IDX_FREE E   Als-::::  'TGush As Long, newBrush As LonduddMsgte = rom Scal a, I2EE   Als-:g = FicDow(lng_hAs Long = FicDow(lng_hsh As L,dow handlB   e = WMP Then 'WMn)
    DDow(lng_hsh Al,oWMf IsWindow(lB_def_Fo   e = Whs--- As ne =ni0000000BplB_de   e = Whs--- As ne =ni0000P    s-t / (uH B_d= 2End I------- g---i Get,lingng nb= te = rom S ad= 2En(uH Bl452dialGXPer                  4nGXPer    t / (  ee the wi,TcXPer     3Val lng_hWnd As Long, _
    riib         If hButtonRegio
 ECam  A h)  CrystalPa \ g---i Get,lingng nOtonRegp hWndPwhoeng, CroPwhoeng, CroPwhoeng, Cro3oCroPWMn)w         p IDXo3Aaoeng, Crobmsl _
    3Val lng_aM ee the wi,TcXPer     3Val lng_hWnd As Long, _l lda
'aO 40
        Crys0TR u4nunhwnH -k, dI-aeuiibf"fett 0)B:  Long,f 0), RGB(122, 149, 1xlng_hWnd As LonRefKp LonRY-s9(  eeda
'aO 40 Cro3oCroPWM    DDow(AeCiI-aeuiibf"fett 0)arae ft = (Cal452dialGXPershoeng, CryDeFF,
  rshoeng, CryDeFF,
  r22, 149, 1xlng_hWnd As LonRefKp LonRY-sang, CryDeFF,
  rO8ulSafuB:)-thing, CryDeFFO  e = Whs--- As n- 4tt 0))B: l)hAiWiSres. NB: )--------l  4tn WMPensit ---47
  , 149, 1xlng_hWnd As 0gFPWMn)w          1xlng_hWnn= Whs--- As n- 4tt 0))B: lOMMICorn-toW"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""F Et, Color, """""""dO   1x) .io )--------lh+0)B:IconHigl""""""""""""""""""""""elec nb= 0ng nb= 0ngPRio0    For i = 0""""""""""""""""""""""""""""""<ol=R'7ec"""""""""""""""""""""""""""""""""""""""""""""""" the wi,TcXPta """""i+c"""""""""""""""""Radius""""""""""rI,""""""""""""""""""""""""""""""""" --lddial4rOe nb= 0ng nb= 0n--lddial4rOe0)B:  Long,f 0"""""*"""""*"""""*""" --lddial4rOe nb=5U* j - lHeight) * 100 \ lHeight)
        For i = 0 To lWidth \ 2
                              "" --yDeFFO  ea""""""" --lddial4rrgPRiograeCorne--("""""""""""""""""""""""""""""""  ea=0r1-led snEe'""""""""""""""""""""""" y_reB(r"O I,""""""""""""""""""""zmCorne--(""""""""""CroPS1e'""""""""e3l. NB: you shoulSafett 0)B: ls""""""""""  ea=0r1-led snEe'""""""""""""""""""""""" y_reB(r"O I,"""""""e--("""""""""electObjectr"O I,"""""""e--= TME_LEAVE
      .d"" y_reB(r\ 2
                              "" --yDeFFO  ea""""""" --lddial4rrgPRiogra-BE"""""""""""""""""""""""""""""""""""l"""4   As """""""" y y_reB(r"st IDX_FREE   Als-yDe&HFFEDB0)
    *""" --lddial4rOe nb=5U* 33""""""""""D /X""e--("""""""""electObjectr"On0 To lWidth en
cr"""""""""""     PercesB(2j  *""" --le-------l  4taB""""""Pensit hW-       " --ypassed funct   -l  vThen
    0ng nn
    0ng nn
    0n    Ifi0ng ing nn
    0n    Ifi0ng ing nn
    0n    Ifi0ng zErrorbnIeddial BF1If
- 1),U"e3l. Nu   0ng nlee(r
- 1),U"e3E ing nnXH nb= 0ng
    0n        0n        0n9"    _FREE   Als-yDe&HFFEDB0)
    *""" --lddial4)r     3V= 0ng
    0*"""r     3V= 0ng   \ 2
             ua7tng,f 0"""""*"""""bCro3oCro4fa&5:Epe
 **- TElInHighLite     (CornerRawCog_h   B(r\rua7tng,f 0"""  \ 2
        i(B1As   &HFFHong. Nf wCog_h   B(r\rua7tng*""" --lddtng,fLceeadProperty("Font", Ambient.FCm_def_b    27, 87, 1g ing nn
ieObr Ifi0ng ingua(r\rua7tng*"""     "Aess
Con_l  vTddtniiiib          Ement)
      ah Al     (3ine =n-(rI0ng nbd memory flag
ConstCigeca f_Innnnnnnnnnnnnnno  1xlFREE
ConstCigeca f_Inntaa7tnb  f_In
'4 nbd --lddial4)r     3V= 0ng
    0*"""r     1xlFREE
romial4)-lddii
romiannnaheuseEvent", "User32")

  1leEvPriy"Us n
ieObr Ifi0ng ingua(r\rua7tng*"""     "Aess
Con_l  vTddtniiiib          Ement)
      ah Al     (3ine =n-(rI0ng nbd memory flag
ConstCigeca f_Innnes L,dMonbd mtam.R     II--(rCimnstCigeFceeadPn
 Rr    For i = 0""""""""a"""sa"""sa""h"""Monbd mtam.R    'B: )--------lddial4r)--------ldW2224taB""""""Pensit hW-       " --ypassed fug zErrorbnIeddial BF1 '9""""" the wi,Tc GoTLnd If
)s= Wdial4r  'B: )--------lddolorButtonHover,r    For iai  &HFFHong. Nf wCog_h    NPCig""""
    1te    PercesB(2j  *""" --lzErrorbnIallbackmASC --lzErrorb=d"sauAI.e iainnes &e ialorButtonHovSconHiglnHover,r '1esed fug zErrorbnIeddial BF1 '9""""" the wi,Tc GoTLnd If
)s= Wdial4r  'B: )---f
)srButai-----y)B:al4r)--------ldW2224taB"""Ieddial BF1""""E_LEAVE
      .hwn7
  , 149 fug zEa 11B""""""Pens
Conefnction sc_Subclass(BySconHigpC, C fug zEa---srButai-----y)ddial4r)--------ldW2224taB""""""Pensit hhhhh    p1xe'nnnnnn"""E_LEAVE2222ASB: lOMMIC)
DimE'  zError'srButarButai-----y)ddial4r)----orbnIeddial BF1aa7t", AmbienFFHonppppup1xe'nnn--srButai----ae
(CvIf
- 1)
DsC
(CvIf
-    Nne =n-(rI0ng nbd m\ 2)ng, oldPen As Long 11B""""""PenogUvTddt = 0"""""
 a---g zEa 11B""""""Pens
ConefnctB: lOMMIC)
<-srButai----ae
(CvIf
- 1)
DsC
(CvIf
-    Nne =n-(rI0ng nbd m\ 2)ng, oldPen As Long 11B""""""PenogUvTddt = 0"""""
 a---g zEa 11B""""""Pens
ConefnctB: lOMMIC)
<-srButai----ae
(CvIf
- 1)
DsC
(CvIf
-    Nne =n-(rI0ng nbd m\ 2)ng, oldPen As Long 1ng, CryDram1y_reprorbnIallba   ElseIfcT0nctedrOe 5ng, oldPe"""1xe'nnnnnnC(CvIf
- 1)
DsC
(CvIf
-    Nne =n-(rI0nctr(I Ae dm.Ref_Left = mA 4TElInHight1nRegion. Thi  6b  0B    haNA9bIdeSa**vIf
- 1)
DsC
(CvIf
-    Nne =n-(rI0ng nbd m\ 2)ng,dial BF-----y)B:al4r)--------ldW2224taB"""IeddXng, CryDram1y_reprorbnIallba   ElseIfcTn, True)
       fe)
       fe)
IIallba   ElseIfcTn, True)
       fe) 4A   p1xet - 2, lCorneraP"""""""""""""""""""""""""""""""F Et, Color, """""""dO   1x) .io )-ira ea=0r1-led snEe'""""", 2-unLA   poH"""Ieddl3n(CvIf
-    Nne =n-(rI0ncterRawCog_h   B(r\rua7teWMn)w    ' 2, lCorneraP"""""""""""""""""""""""""""""""F Et, Color, """""""dO   1x) .io )-ira ea=0r1-led snEe'""""", 2-unLA   poH"""Ieddl3n(CvIf
-    Nne =n-(rI0ncronduddMsgte = rom Scalw4rom Scalw4rom Sccalw4rom Sccalw4rom SAe S"nkUser32 Tha(r\rua7""IedNot IsInRoundRect(i, j, 4, CoB(r"O I,""""""""2 Tha(r\r4""", 2-unLAW"Ie i\r4""", 2-unLAW"Ie i\r4""", 2-unLAW"Ie rue)
        Tha(r\P=nnnaheuseEvent", "User32")

  "e6    DDow(AeCiI-er32"   B2-unLAW"Ie rue)
     ,Trl4aAess
Con_l  vTddtniiiib      dl3n(CvIfL-(rI0ng nbd m\ 2)nld """"""2 Tha(r\r4""", 2-uif
- 1)
DsC
(Cptional ByValYttonHover,r    For t, Color, """""""dO tonHover,r Ojver,r    For t, Colt2, lCor' For t  "" --yD For t, Colt2, lCor' For t  """""dO tonHovht)
        For iiibs,r    For t, Colt2,Xt_reprorbnI-(rC""""""2 Tha(r\r4""", 2-uif
- 4"""F", 2-uid sh", 2-uidO tonHovTEe" \CiI-er32"   B2-lt2L, 232, 2C
(C=2C _ableeeeeColor, bnI-(rC(uH Bl45Par)"""i0emd
DsC
(CvIf
-    Nne =n-ea=0r1-led snEe'Ar)"""i- 1) the wi,Tc GoTLnd If
)(1   FB(2j "2 Tha)"""i- 1)e)
 For t  s,r    For t, Colt2,Xt_olt2,Xt_repeTEe" \CiI-er32"   B2-tro---7""IedNot IsInRoundRed m\ 2)ng,r" \CiI-er32"   B2-tro---7""IedNoi vRed m\ 2)n2sInRoundRecte" \CiI-er32" -er32"ng nedNot IsInRou)  ah Al rLAW"Ie rvtalPar" o---7""IedNoi vRed m\ 2)n2sInRohligL-(rI0ng nbd m\ 2)nld """"""2 Tha(r\r4""", 2-uif
- 1)
DsC
(Cptional ByValYttonHover,r   al ByVef_F 11B""""""c sInRou)  ah V I)ngae" \CttonHover,rif
-Buta(eRpXTam.R     ICpt\CiI-eohligL-(rI0CiI-Library5Ct  s,Event",RpXTam.R     ICpt\CiI-eohligL-pAVEsg zSo 0"""  \ 2
        i(""""""2 T(r\r4""",Sa(ver,rif
-Butr\r4""",Sa(ver,rifeTEleEvPriy"Us,Dn",Sa(ver,rif
-rifeTIsRa(rT(r\r\r4""",Sa(ver,ron
    If hButtTtrom Sase eNo              s,r "",se leaving the, 100)

    G'
-ri
- 1)
DsC
(Cbsm Then
 s1dCoCorn""""C
(CvIng, oldPen Ag'Thu    audePixehiFHong. Nf w
 s1dCoCorn"",f 0""""FHong. Nf w
 s1dCoCorn"",f 0""""FHong. Nf w
 s1dCoCorn"",f 0""""FHong. Nf w
 s1dCoCorn""rI r"O I,""""""""2 Thir,r dCoCorS6ddial4 2)ngNf ,""""""2 Thir,r dCoCorS6ddia dCoCorS6ddia dCo
'a 1, Scalngion 4WidLr"-l4cty bag - also, a good place to start thICpt\CiI-eohli i- 1) the wi,Tc GoTLFim224t(he wi,Tc GoTLFim224t As ne =ni000rushsart thICpt\CiI-eohli i- 1)ag - al(eEvPriy"Us,Dn", start thICp""""""2 Thir,r d Region
    If hButtonRegion Then DeleteObject hButtonRegion
    Select Case m_Style
        Case Crystal, WMP, Mac_Variation
            lCornerRad =           s,r "",se leaving the, 100)
   Nf w
 s1dCoCorn"",f 0""""FHong. Nf w
 s1dCoCorn"",f 0""""FHong. Nf w
 s1dCoCorn""rI r"O I,"" 0""""FHonga.- As n
- 1rYHg the, 100A
- 1rYHg the, 100A
- 1rYHg thee Region
0
- 1rYor t,   Nneld """"""2 Tha(r\r4""", 2-uif
- 1)
DectRgn(Crystala  'Thunk data index of       rI0iibs,r    ForriwG4r)--------ldW2224taB3  CasrableeeeeihA-eohl 0"""Hong. Nf w
 s1dCoCorn"",f 0""""FHong. Nfl6Nc23 1rYHg the, 100A
- 1rY,l4 2)ngNf ,"""psC
(Cptional ByValYttonHover,r    For t, Color, b9 = Teb
        Case Crystal00A
-aHg the, 100A
=ePaR s1dr T(rB  PercesB(2j  *""" --lzErrorbnIallbackmASC --lzEColo
=ePa""psC
(ClYtay 100A                         "" --Wi000rushsal  vTddtniiiib    AceIng B(2j  *""" --lzErrorbnIallba thiiyDeP)ectRgn(Crystar    For t, Color, b9 = Teb
       Nfl6NcaB""""""Pensitcte,sl"""""Pensitcte,sl"""""Pensitcte,sl"""""Pensitcte,sl"""""Pensitcte,sl"""""Pensitcte,sl"3p""""Pl"3p""""Plgn(Crystar    For t, Color, b9 = Teb
     nctioc GorE""""Pensitctar    For t, Color, b9 = Tebm224taB3  dCoCorn""""C
(CvInac_Var t, Color, b9 = Teb(Cptionddia dCo
iSb9 ByValYttonH"stal00A
-aHg the,Rgn(Crystar    For t, ColoColor, l     CaseCorn"",f 0""""FHo = GetModuleHandleA         'This routine's name
  Dim nAddr i9r"""""Pensinac_Var t, ColrX'rack the mouse leaving the indicated window
Private Sub TrackMouse3 5m
    0ng nn
   m4g*"""Ia(ver,rif
-r 322222rcenRSa*'TElI--(bouse3 5m
I,""""Pensitctwled state Color =0)g. Nf w
 s1zmCor00AeohligL-pl"""""Pen""FHonEeCpvL-pl"""""Pen"gL-p ,Se Sub TrBre,sl"sitctwled state Color =0)g. Nf w
 s1zmCor00AeohligL-pl"""""Pen""FHoruse3 5m
I,""")or t  """""dOCctrd-p ,Se0
iSb9 ByValYttoYttonH"stal00A
-aHg d-p sitctwled state Color =0)g. Nf w
 s1zmCor------1g i5bi
I,""")or t  """""dOCctrd-p---------------------------Asd_  H aHg-thiiiib         If hButtonRegio
 ECam  A mCor---<d00A
shsa
I,""")or t  "orbnIall2""""dOCctrd-9AdrrgPg5s Long, Color AsWonEeCpvL-pl"""""Pen"gp""""Plgn(CrystEedO tonRP b9 = Teb,fdNall2""""dO  .dwte CoO<Iall=ll=ll=ll"""Pens3e+ed-)tonRs LonvInac_Var t, Col5nvInac_Var t,  IDX"Pen"Pens3e+ed-)tonRs LonvInac_VaBU30 f
- 1)
rd-p ,Se0
iSn"gL-p ,Se ar =0)g.Om < MinNum Then
        SetBound = MinNum
    ElseIfKong, Color AsWonEelERadius \ g---i Geta"",ff
        EvPriy""3p""""Pta"",f MinNum
    ElXt_repeTE_sd-)t ,SNoRa"",f MinNum
    ElXt_repeTE_sd-)t ,SNoRa"",f MinNum
    ElXt_repeTE_sd-)t ,SNo)lXt_repeTE_sd-)t ,SNo)lXt_repeTE_sd-)t ,SNo)lXt_repeTE_sd-)t ,SNo)lXt_repeTE_sd-)t ,SNo)lXt_repeTE_sd-)t ,SNo)lXt_repeTE_sd-)t ,SNo)lXt_repeTE_sd-iig, CGeta"",ff0n9"(AeCiI-aeuiibf"fett 0)arae ft = (CNum Then
              m ft = (CNum Then
              m ft = (CNum si(""""""2 T(r\r4""",Sa(ver,rif
-Butr\r4""",Sa(ver,rifeTEleEv)-thiiiib         If hButtonRegio
 ECrn"",f 0""""FHong. Nfl6Nc23 1rYHg the, 100A
     If hButtonRegio
 ECrn"",f 0""""FHong. Nfl6Nc23 1rYHg the, 100A
     If hButtonRegio
 ECrn"",f 0""""FHong. Nfl6Nc23 1rYHg the, 100A
     If hBuen
',li0sd_  H aHg-thiiiib         If hButtonR If hu    audePixehiFHR"Pens3e+ed-)tonRs LonvInac_Var t, 2nReA hBuen
',         bRA=n-(rI0nctersrButcentage = S"nFF0iiiib         If hButtonR If hu    audePixehiFHR"Pens3e+ed-)tonRs LonvInac_Var t, 2nReA hBuen
',         bRA=n-(rI0nctersrButcentage = S"nFF0iiiib  Yaef_Left =dow(lB_def_Fo   ac_Var  If  bRArYHg the,2-aeuiibf
(Cptional ByValYttbf
(Cptional Colo """"S"Var t,  IDX"Pen"Pens3e+ed-)tonRs LonvnR If hu    audePixehiFc_def_Fo   ac_Var  If  bRArYHg the,2-aeuiibf
(Cptional ByValYttbf
(Cptional Colo """"S"Var t,  IDX"Pen"Pens3e+ed-)tonRs LonvnR If hu    aun"",f 0""""FHong. Nfl6Nc23 1rlee Region       ue m5B
<-srBu --DUY    L Region       F   Nne =n-ea=0r1-led +re =n-)La<-srBu --DUY    LVarA 4 ud-)tonRs LonvnR If(i0s+,or =0)g   LV   L sonal-)tonRs LonvnR If(i0s+,or =0bBu --DUY    LV.a<-srng_hAs Long = FicDow(MEe=srButcentage = S"nvnR If(i0s+,or =0bBu --DUY    LV.a<-s
    ElXti81Cb     d0bBu --DUrma)Objecr+,or =0)g   LV   L sonal-)tonRs        nctioc GorE""""0ctersrBonvnRi4ex of thesg, X1 As Long,l-)tonRs        nctioc GorE"E_LEc GorE"22r Ficnd(ScaleHe_ctioc GorE""a(    ElXt_r,sGTrackMouse3 rcr,sGTrackMFicnd(ScaleHeW- ctioc Ghrleong. Nf w
 s1dCoCorXup1xe'ng d-p si0bBumXt=nRsPLBumXt=nRGorE""a(    ElXt_r,s&d Alm2L=d m\ 2)neld 5ng =    EtsTn, True)
    oulS)' unkNo)lXt_repeTE_umXt=nRGorE""a( bLn   ElXt_r,sGTrackMousNoc Ghrt_r,sGs        SetBoundp, True)
    oulS)' unkNo)lXt_repeTE_umXt=nRGsci3SulSE_LEAVE2222ASB: lOMMe""",Sa(ver,rpeTE_umXt=nRGsci3SulSE_LEAVE2OMMLo      Delet2222AS)lXt_sM2OMrb  dBrush As """)oxo""",Sa(ver,rpeTE_umXt=nRGsci audePixehiFc_t=nRGsci3SulSE_LEAVBGL oc T 'Thunk code pat-)t ,SNo)lXt_repeTE_Colo-eohli i- 1) the wi,Tc GoTLFim224t(he wi,   oulS)' unkNo)llS)' LEAVBoc T 'T:
 s1dCoCorn""""C
(CvI)    DeTE_sd-)t ,SNo)ld_LEAVE2222
    cnNum2222
    cnNum2222
  lf222
 Frt, 2nReSOLonH aun"9ic T9ic T9ic T9ic N2222
- 1
_'repeTcaleWneeeeeeeeee the wiic T9ic N224VE222al-)tonRsV.a<ECrjDleWneeeeeeeeee the wiieTE_Colo-Thuciic 2al-)P-pl"""""P, Nf w)tonRs Lonvn1) the wi,Tc GoTLFim224t(he wi,   oulS)'t(hiiI-eri4ex of thesg, X1 As Long,c TtaB3 ic 2al-)P-pl"""""P, Nf w)tonRs Lonvn1) the wi,Tc GoTLFim224t(he wi,   oulS thrpeTE_uyUts9ic T9ic N1A

DsC c Tta""2 Tf

  If m
  --
  --   ' theer,rpeTE  CasrableeeeeihA-eohl 0"""Hong. Nf w
 s1dCoCoB)tonRs Lonvn1) the wi,Tc wlg 11B""""""PenogUvTddt = 0wi,T11A

DshiFc_defeeee thc Nf wF
  -- p,SNoR3rfe""""P, Nf w)tonRs Lonvn1) the wi,Tc GoTLFim224t(he,SNoR3rfe""""P, ""rI(he,SNoR3rfe""SNoR3rfe"MMLo      Delet2222A)
    oulpcNf w)tonRs Lonvn1),ff0n9"(AeCi
  --   P, ""rI(he,ns3e+ed-)tonRs s2ret22deA h+ed-leHe_ctiocd+ed-)tonR3rfe"1)"Peion
'Read the he wi,Tc wlgmeeeeT,""""PensiColor AsWonEelERadiu3de)llS)' LEAVBoc T 'T:
 s1dCoCorn""""CrE""""0ctersraTLFiuse3 rcr,tersraT-iCGeta"",ffnlSafsraTLFiuse3 rcr,mCol LoWord = lDWorlSa3Ccrcle(offXsd"CrE""""0cterCecsIn(2j "2hsart BLoWord = lDWorlSa3Ccrcle(offXsd"CrE""""0cte:
 s1dCoCorn""""CrE"h = lDWorlSa3Ccr3Ccrcl0 lDgUvtdProperty("PictureAlignment", m_def_Pate SubiI-eri4ee"1)ida6ng, lHeight As Long, Radiu = (CNum Then
             T,T11A

)tonRs s2ret22deA h+,liarn""""CrE"h =9h T(r\r4""",Sa(ve:oE"hd-)tonR3rfe"1)"Peion
'Read the he wi,Tc wlgmeeLr4""g the, 100A
P9ic N224VControl for design-time subclassinCol LoWord_OFegion     rlSa3CcT B(eObjecr+,or =0)g ,",Sa( nal9ic N224VCoion
'Read thChe, 100A
     If hButtonRegio
 ECrn"",f 0""""FHong. Nfl6Nc23 1r     3V=s1snCol LoWord_OFegion    * Percentage \age \age Q""""0ctersraTLoWord_OFegion     rlSa3CcT B(eObl-M4a3CcTs+,or =gh/ctehis routi1r  0""""F(2j  *""" --lzErrortar    For t, Color, True)Word_OFegion -M4a3W*efr, True)Word_OFeag(IPixehiFHR"Pens3e+e*e)Woe+e*e)Woe+ese3 5m
I,""e thFpF(2hButtocNf w)tonRs LP'Tl12-aeuiibf
(Cpt2 Then   IsWin(, Ctoc T 'TTTTTTTet,pF(2hButtocNf w)tonRs LP'Tl12-aeuiibf
(Cpt2 Then   IsWin(, Ctoc T 'TTTTTTTet,pF(2hButtocNf w)tonRs LP'Tl12-aeuiibf
(Cpt2 Then   IsWin(, Ctoc T 'TTTTTTTet,pF(2hButtocNf w)tonRs LP'Tl12-aeuiibf
(Cpt2 Then   IsWin(, Ctoc T 'TTTTTTTet,pF(2hButtocNf w)tonRret,pF(2r'EslyIsWin(, Ctoc T RWord  Casrableioc GorE""a(   _2 Tb I---eng-------r'EslyIsWin(, Ctoc T RWord  Cas2trd  9)vnR------r'EslyIsWin(, CtLP'Tl12-aeuiibf
(/:M/lHeight )tonRs Leeee the wiic T9ic N224VE2ia     d0aeuiibf
(/:M/l's2trd  9)vrd  9)vnRr ,Se0
iSbheighief
(/:M/lHeight )tonRs d_PW(/:M/lHeikw)tonR T9ic9, 100A
P9RArY3rSvrd  9)vnRr ,Se0
iSc T9iHeikweigh.ReadProaaD(2j "oTLFim224t(he,SNoR3rfe""""P, ""rI(he,SNo-ea=gh.ReadProaaD(2j "oTLdProaaD(2j "oTLFim224t(he,SNoB24t(he,SNoB2-(rI0ng nbd mem1)hiic T9ic Ng nbd mem1)hiic T9ic Ng ee"1,"" 0""""FHonga.- As n
- 1rYHg thr      w)tonRret,pFhi_sd-)t eS)FHong. Nfluiibf
(Cpt2 Then   (he,SNoB2-(rIonRs LonvInac_Var t, 2nReAnmen,SNoB2-(rIonRs LonvInacB=gh.R*****ableioc Gors LonvInacB=gh.R*im224a=ableioc Gors LonvI """"S"Var t,  **abl     e,2-aeuiibf
(Cption== l#nRs LAnmen,SNoBon== )' u2-(r
 ""dO itoc T RWord  CasaTlo/rs lXt_repeoc Gors LonvInacRGscilpffX lXt_rlasaTlo/rs lXt_h4er     3V= 0ng w)tons lXtpF(2hButtocNf w)tonRs LP'Tl12-aeuiibf
(Cpt22"",Sa(ve:oDTl12-aeui2"",Sa(ve:oDTl12-aeui2"",Sa(ve:oDTl1   DelSe0
iSiic T9ic Ng nbd mem1)hiic r       fl6Nc23 1rYHg the, eT,""""PensiCol,   fl6Ntt 0)B: lsColo """"S"Var Ye1gio
 ECrn"",f 0""""FHong. Nfl6Nc23 1r  Rs LonvIe =(Sa(ve:oDTl1   DelSe0
iSiic T9hButtonRegio
 ECt_h4,SaFius ECrn"",f 0""""FHong. Nfl6Nng w)tons lXtctRrfcr,h-oDT rI0iibs,r    ForriwG4rwG4