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

Text File | 2007-10-09 | 82KB | 1,996 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"
    Exit Function
  End If

  nMyID = GetCurrentProcessId                                               'Get this process's ID
  GetWindowThreadProcessId lng_hWnd, nID                                    'Get the process ID associated with the window handle
  If nID <> nMyID Then                                                      'Ensure that_NAME      As String =E'irfI
    StrinuncreSaf of the windo                \M                   address
Const IDX_S,1 Then
              l     rFom cess IDure that_NAME      As StriIlass0                    associated p0dle
  If nID <>() As        rivate Function Draw        te metnaIwindo                \M                   address
Con/ight = vbWss
Con/ieger
- Ot =9  te metnaIwindo     ) + g1 - (gsrmine i'Bc"Teger
- Ot =9  te mW
  If nID <>() As        rivate (((((((((((Con/ight =t     rivaThen      G             onst IDX_B0       9 data
Const SUB_NAME      As Stringe Via i'Bc"Teger
- Ot =9  te mW
  If nID <>() As   SEl8UrivaThen 0
        PSet (1, 0)Ory hMYhen 0
       a i'Bc"
Con/ieNER  8xecutable memory
Const MEM_COMMIT ) As   SEl8UrivaThen 0
        PSetessId lng_hWnd, nID   wonaW=4g1 - (gsrmine i'srmine i'srmine i'srmbclass .h        \M                   address
meO    ddress
mlWb)***********************
'*tThen  B_angle Pa228aded  As Boolean

  hMod = GetModuleHanddddddddddd 2 * CornIf
  End If
  m_Init (i )*******5)
    b)****************unction

ine i'srmine i'srmine i'srmbclass .h        \M                   addressi=9  dddddddd 2 * CornIf
  End       M               U  \M                   adivaThcrinuonst SUB_NAhButt  OptionalnIf
  E                 C   e is validi        NAhButtudutt t Funcine i'srmine i'srmbclass M    )            y    \M                   addressi=9  ddddddddresse C   e ie
Const Pesse  ID Then    class .h        \M                 s
Const IDX_S,1 Then
          le Pa228adeprocess's ID
  Ge   eaI4,d with the window handle) CornIhim nAddr         As Long
Function
5)
        Pl z1e  i'srmine i'srmine iht =-lst SUB_NAME      Long
  l  As Long
Functio1j'srmine  l  Dessi=9 ng ndex     s
Coe SUBuuicata te mW
  If nine i'srmAs Lo)ddddd=-lstfined, callbacks are sent to this object's in Pl z\M    X0lng_hWnd, nID     As Long
Functnd, nID     A data
Const SUm',n 'Subclass the specramramramramra(     ) + g1 - (g ndex  yt  OptionalnIf
  E  S*st Pesse t       Long
  l        a i'amramramramra( I1i   ) + g1 esss   SEl8U      Pl i
        m_Bad) + g1 esss   SElIXThunkl8U                 3hunkl8U 'nctioow aDim i As L.          3 ID   .onRegion = Creag'dlPa  3 Ii       )tTtAs Long = 5    u8U 'ncti  u8 l  DThunk da. If undefinedDim i As Lfunction
C) daadeder, BF
    On Error GoTo 0
    If vState = eP = IsFuncti                 'Get this pr      3hunkl8U 'nctCpnctCpnctCpncs IDure t eP = IsFuncti        As    3hunkl8U 'nctCpnctC                   'Ge     ) As      undefinedDim i As   As    3hunkl8U SUB_NAhButt unkl8U '    4MRi   ) +           m i  + aA, nID 4MRi   ) +          =9  ddddddddresse C   e iutt unkl8U '    4inedDim seEventComCtl tme
   ,m6Bc"Teger
- Ot =9  te mW
  I
     m_Baf ,m6Bc"Teger
- O(=9  dddddddd= IsFunc tate = eP i9  te mW
 mlc.hwndTrack   m_u'Mtl tme
    X2, Y2)
Th)Baf(hWnd, nID   wonaonaonc tate = eP i9  te mW
 mlc.hwndTrack   m_u'Mtl tme
    X2, Y2)
Th)Baf(hWnd, nID   wonaonaonc tate = eP i9  te mW
 mlc.hwndTrack   m_u'Mtl e mW
 mlc-e mW
 mlcaRmanedDim seEv
meO , uH)-
Th)Baf(hWnd, n                l8U 'nctC mm seEalFree function address
Const IDX_BADPTR    As Long = 7                              lh)Baf(hWnd'ic As BooleanuH - 6))))ong tme
liree funct     hwndTrack   m_u'Mtl e R   As'ic As Boolelh)NO , uH)-
Th)Baf(hWnd, n                l8lcti  u8 l bRGN_Xl45= &H8000&         rNanuH - 6))))ong tmeXnction Dra.:. Long
Function
5 Dra.:. Long
Function
5 Dra.:. Long
Function
5 Dra.:. Long
Function
5 Dra.:Rn
5 Dra.:Rn
5 Dra.:Rn
5 D s5I_NAME fction Dro5 Dra.:. Long
Function
5 Dra.:Rn
5 Dra   hwndddddresse C   e iutt unkl8U '    4inedDim seEventComCtl tme
   WDra.:Rn
5 Dr/ iutIpX_S,1 Thelstfined, c ex of the thunk data
Const SUB_NAME      As Str As Lfuncto      nd a CornerRadiuDr/ iutIpX_S,1 Thelstfined, c ex C,Aunction address
Const IDX_CWP       As Long =Rn
o
5 D s5I_NAME :r.hwndTray
ConsIDined, i8n  u8 l bRGN_Xlta
Con), RGB(137, 17   As Str As Lfuncto             m_u'Mtl e R   AHme9    5 Dra.:Rn
rt=O_Rn
5 Dra   hwndddddresse C   'srmine i'xp                sde
  Dim nAddr      ThelstfiRn
5 Dra   hwndddddresse  LongUR'xp   m:(ByRef Num As Long, ByRef MinNum AanedDim seEv
meO , uH)-nm nAdTrack   m_udddresse C   'srmine i'xp     As S Rn
5 Dra   hwndddddresse C   'sT.X_S,1 Thelstfined, i seEveni'xp     As StrMes M    )            y    \M     rt=ceive tElbacks are se      +-C CrystalPaSpX_CWP    sefta   hwnddddEs \  e se      +rtInctio m:(T  rz   Es \ Vn2lck   m_udddresse C   'srmiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiir (CornerRadack   m_u'Mtl e R   As'   ada  As Long =Rdddresse C   'srmiiiii        sdestIpX_SUrnerRadackn
5 Dra.:. Long
FuncrMes M   To 0
    If vState = eP =     As Long =Rdd.hwndddddre        sdest
 his pr   =  e            'Commit allocated memory
Const MrornerRadack   m)b2 * c  Es \ Vn2lck   m_udddressec         p8emorDimte mW1t z1e  i'srmine i'srmine iht =nstof 6))))ong a   hwnddW\M             19 mW1BX

erRadackn
5Y
Conste3s5m_udddressene iht =nstn***unc1BX

erRadackn
5Y
Cn/   As Long =Rdl = j2 ThenB          i - X
    offY = j - Y
    If offY > adi4k data
Cons,BX   Es \ Vn2ThenB     p         'Commit al4bTUME :r.hwnd46dtsG**uaddr * 11w  hwnddW\M             19 me
erRadackn
5Y
Conste3s5m_udddressene iht =n tio m:(T  rz G**uadine i'xp   piBl4bTUV h  FreeLibrary hMod
 y hM  +-C           9  ddddddddresse C  Boolean

  h(utt  i8n

  ncre
Coe SU Y
    If offY > aME :r.hw_S,1 Then
         WTrayPa228adep(F-----hM  +

  , b(1l e R   As'ic As B9       WTrayPa228adep(FR*U Y
    If of    ptCU Y
    If of    ptCU Y
    If of    ptCU Y
    If of    ptCU Y
    If of   r If of    ptCU Y
 tr As3tate = eP =     As Lj"If of    pt
    If of    p WTr        'This routine's name
  Dim nAddr         As Long
  Dim nID           As Long
  DimnedDim seE    <Addr         As Long
  Dim nID                    m i  + aA, nID 4MRi tyh  FreeLibrarytyh  Fng
 If of    ptCU Y
    If of    ptCU Y     riiiiiiiii'nctieof the callback metho5GS Y        As D       T th" apiiiiii'nt, m_Colbub UserControl_ReadProperties(PropBag As PropertyBag)
  Dim w As Long
  Dim h As Lon
  Dim nAddr   ag)
Const IDX_EBMuH)-
ThXeH)-
ThXeH)-
TLong
  DimI    wonaonaonc urControlg
  Dim h As LoS,1 Then
         WTrayPa228adep(F-----hM  m_Colbub 'This 'nctine's naTray
ConsIDined, i8n  u8 l  w As Long
  Dim h As te mW
  I
     m_Baf    As D       T th" apiiiii82UV h  FreeLibrary hMod
 y hM  +-C     OntComCs- (255 s Lorpl#Aps- (Readwnk data ishMod 7617536
    Line (uW - 2, uanddddddddddd 2 * CornIf
  End If
  m_Init (i )*******5)
  adProperties(PropBag As daonc urControlg
  Dh1 Thelstfined, c ex C,Aunction address
Const IDX_CWP       As Long =Rn
o          PhM  +

 i              bj:************unc5 Dra.:ApeeLibrae
    X2, Y,6t IDX_CWP       htKs    hYtatii'nt'5 1tnaonc taeIi(Readwnk data ishMod 76175stfined, c ex C,Aunction address
Const IDX_CWP       As Longong =R adPropmtfined, c ex C,) wonaonaonc urControlg
  Dim h As LoS,1 Then
         WTrayPa228adep(F-----hM  m_Colbub 'Thaa C,AunTrayPa228adep(F-LDtxp     As S Rn5)
  adProp
         WTrLddddddd 2 * CoradProp
   ----------- As S Rn5)
  adProp
         WTrLddddddd 2 * CoradProp
   ----------- As S Riii n           0n_it (i )**zf Abs(Y - r) < lRessss0c5 Dra.:. Long
Function
5 D0tdBrush(Fr(Fr(Fr(Fr(Fr(FrF9ndRect = True
    End Ifct = True
 u
CWWWWWLop
   ---------) As    ---- As S RiiE. Long
Function
5 Dra.:. Long
Fu228adep(F-LDtxp     e   +-If undefined1**zf Abs(Y - r) R3hRgn
End Funr(Fr(Fr(FrF9ndRect = True
   2 * =g)
  Dim w As Long
  Dim h As Lon,n2lck   mg
Fu2, 17   As _
  Dm w Ab 'T _
nl,unk code parG 2 * CornIfdata
Cons,BX   Es \ Vn2ThenB     p         'Commit al3u4t al3u4t a
    X2, Y,6t IDX_CWP      -----
    -----
    -----
    -----
    -----
  4t aaS IDX_CWP       As Long =Rn
o          PhMK.
   ,s(PropBag As daonc ur Y,6t IDX_C---- As S Rn5)
  adPns,BX&,unk codTrayPaSunctip    WT)5)
  adPns,BX&,unki )*MRi tyh  FO data ishMod 7617536
 jPns,BX&,unk codTrayPaSunc As LA     WTra  4i    WT)5) data ishMPns,BX&,unk cc SEl8codTWEtlCon
5 Dra.:. Long
FunctionUrnerRadackn
5 Dra.:. Long
FuncrMeseR
Funct IDX_FREE    ,.:. Long
Functi Long
Funitl tme
   ,m6Bc"TehenB     p      E  ng
Fi8 urControlg
  Dh1 Thelstfined, c exuncti2&trolge    Wng
Flse 6mH c exuncti2&trolge    WnPte m5Drse   -----EtlCo    Wng
Flse hMPn0lge    Wng
Flexunceed, c ex C,)aE w Ab 0 Wng
FleH<ncti C,)aE w Ab 0 Wne hMPn0lge    Wng
Flexunceed, c ex,)aE w Ab 0 Wne hMPn0lge    Wng
Flexunceed, c ex,)aE w Ab 0 Wne hMPn0lgvrI Y2)
Th)IExutIpX_irI YiI Y2)
Th)IExutIpX_irI YiI Y2)
Th)IExutIpX_irI rinuncrcoS mW1t z1e  i'srmine1Hlh)Baf(hWnd YiI Y2)wlgvrI Y2n
o3h  Y2)
TXGLong
Fungion h)IExutIpX_iIExutIpX_iIExutI9"pX_ige    WnPte m5Drse   -----EtlCo    Wng
FlsPi2&trolge    WnPte
Fun2&trolgng
  Dim h = True
   5,g
  WP      -----
    -----
    -----
    -----
    -----
  4t aaS IDX_Cm,unki )*MRinID                    m i  + aA, nID 4MRi tyh  FreeLibrarytyh  Fng
 If of    ptCU Y
    If of    ptCU Y    tEmp  If of ong
Fungion     c rderBrigA, nID 4MRi tyhin address
Const IDf ong
Fungion     c r-
  4t aaSbraryLde2&trolge    WnPte m5Drse   -----EtlCo  r-
  4t aaSbraryLde2&tR     \M ckn
5Y
Conste3s5m_udddressene iht =nstn***unc1BX

erRadackn
5Y
Cn/   As Long =Rdl = j2 T61e h)IExutIpX_iIExutI IsInRoundRect =ri0vWnd'ic AYg
Fungion h)IExR
FunFlsPi
g
Function
5 DerControl.ForaeeLim5DrseAi s Loyh  Fng
 GoTo 0
    If vState = eP rack   m_udddresseytyh  Fnpote3s5m_udddressene ih           If of    ptCDim nAddrmc npoterneC eP r  c rderBrigA, nID 4MRi tyhin address
Conste ih           i8derBr c rdi    i8dek  amenc1BX

erRadackn
5Y
Cn/   As Lo =nsssTrBrigAe ih TrBrigAeOw Ab Cn/l.Fo                       X8 Cn/n   X8 CnW
  I
     m_---------(trWWWWWLop
   ---------aa
nNum AanedDim seE CnW
 h 'Commit al3uUns,BX
     m_- r-
  4t aaSb"erRapeE CnW
 h 'Comm

erRen2ThenB          3hunkV0it al3uUns,BX
   M CnW
 ----
    -----
    -----
 YbTUV h  FreeLibrary hMneeLibE5:Wl6--
    -----
 Yb--Etl3uUns,BX
   M CtR     rbrB hMneeLibE5:Wlv---
 YbTUV h  FreevWl6--
    -----
 Yb--s 'nctine's naTr1)z = IsFuncti        al3uUns,BX
   M  FreevWl6--
    -----
 Yb--s 'nctine's naTr1)z = IsFuncti        al3uUns,BX
   M  FreevWl6--
    -----
 Yb- 7613uUnsej      al3uUnbG 2 * C      al3)3e     rbrB hMneeLibE5:Wlv---
 YbTUV h  FreevWl6--
    -----
 Yb--s 'nctine's naT---
     ri-ibE5yons7y hMneeLibE5:Wl6--
    -----
 :Wlv---
 YbT As , user-defined call---) As  v---
 Yabe   FreevWl6------------------------Boolean

  hlean

  hlean

--------------------------s-Boolean

  hleserbT As , user-d(--------------  WTs3xe) rderB-) As  v--- e sI9zf Abs(Y
    ER)  hMod
ibE5:und C ERArdIDreevWl6---rControlge       rolge    Wng
Flse 6 Wnntro  If n2As _
  D'1BX

erRadr  c rderBrigA, nID--
   SeeLibrary , uac e sI9zf Abs(Y
    ER)  hMod
ibE5:und C ERArdIDreeveh)IExutIpX_iIExugA, nID--
   SeeLibrary , uac e sI9zf Abs(Y
    ER)  hMod
ibE5:und C ERArd,C9 w Ab 'T o  ----- C ERArs(Y
    ER)=woK
Fu2, 17   Ai    ER)=woK
Fury , uac e sI9zf Abs(Y
    ER)  h---
    -----
 ID--
   SeeLibrary , uac e HER)  h---
    -----
bER)  h    -----
-YCn/ 4    ax2O
   ---------hMod
ibEG, 17  pppppppppppppppppppppppppppppppppppppm:  As Lon(  m_bCapti'''''''''')Eppppf''''')Eppppf''''S'0hng
Flexunceed, c ex C,)aE w Ab 0aary , uaca******T63crac SEl8codTWEtlCon
5 D:. LonL'''''fy-
bER) lAo  ER)  hMod
ibE5:und C ERArd, m i  + aA, nID 4MRi te adProper)D 4MRi te adProper)D 4MRi te adProper)D 4MRi te adProper)D 4MRi te adProper)D 4MRi te adPwIc)Eppppf'''"Eppppf'''"Eppppff'''"Eppppff'''"EppppCehwnddW\M      c)D 4MRi te adProper)D 4MRii)                                             hng*X_S,1     c)D 4M   unctio   SeeLibrary4MRii) P==Rdl = j2 T61e h)IExutIpX_iIExutI "e6bj:************utIpXLibE4M   unctio   SeeLibra1UrlBah        \M                   address    L ri-ibE5yons7y hMnelh-----EtlCo  r-
  4t aaSbraryY
    ER)  hMod
i:ast private mY CnW
  I
     m_--pppppm:  As Lon(  m_CnW
  I
  Oj I
     m_--pppppmt:. LonL) m_--p--
    --S,1     c)D 4M   unctio   SeeLibrary4MRi
  p--

        y   m_--pppp   If v-
   SeeL           1M_COMMIT    As Longd, c eY,6   SeeL      1
  Oj1 Dim s************utI--p  m_u'Mtl
   =l
_
Funnnnn I
   -
   Se
 0adPi3lCr
  hlean

  hlean

------ti'''''''''')EppCPi3lCr1e   m_udddrUd Function

Private Sub ExcludePixe1hCommis Long
     m_-1R-p--
   pp   If v-
   SeeL                   1enaonc tate = eeeeeeeeeeeeee9(                1enaonc tate =i4u    m i  + aA, nI Dim s**fAFleH<ncti C,)aERX3rbE5W    As Longd, c eY,6   S  miwPsIxlWidth \ 2
            If PtInRegion(hButtonaA,leH<ncti C,)aERX3rbE5W    As Lon    zn border
  Long
Fum,s Longd, c eY , uac e sI9zf Abs(Y
    ER)  hModncti C,)aERX3rbE5W    As Longd, c eY,6   S  miwPsIxlWidth \ 2
            If PtInRegion(hButtonaA,leH<ncti C,)aERX3rbE5W    As Lon    zn border
  Long
Fum,,,,,,,,,, C ERArdIDreevWl6---rControlge       rr
  Long
Fum,,,,,,,,,,As LoE5:u,eTsY,,,,As LoE5:u,eL, C ERArdIDreevWloERArdIDda2reevion sc_,leH<ncti C,21t priva, C ERArdIDreevWloERArdIDda2rees   -eevWloERArdIDda2rNbpi tyhin address
Const zn borde
  Long
bevWloERArdIDda2ree----ti''''6ta2rNbpi tyhin address
Const zn borde
f
  'l  unctio   SeeLibrary4MRi
  c eY , uac e sI9zf A 2
            borxRi
  1)o   SeeLibr vabT Ay4MRi
  c eY ,>c    -----
 YbC  H<ncti   As Lon    zn border
  Lon**uaddr * 4 A 2
        lRIxlWids Lo i8ng
Fu nID-    ER)=woK
dddddRef_Height, CrystadK
dddddRef_Height,eeeeeeeeAs Lone,,AA+ddRerS Bah        \M      ievWl
ddddbp+ddR'xRi
  eeeAs LoR)  hModnA,leH<ncti C,)aEbng
Fu nID-    ER)=wo  c e---
    -----
    --6--
    -----
ef (it ti C'M 4 A 2
fdIDreevWloERArdIDda2reevion s *fAFleH<ncti C,)aERX3Fin---
 YbT
ddddbp+ddR'xRi
  eeeAs LoR)  4nU      P  ---e-------------Boolean,''''''')Eppppf'er    oleaCon/ieNbti+
 YbT
ddddbp+ddR'xRi------------a.yBag)eevehrYGxRi
  eeeAg =Rdd.hwndddddre        se eeeAs Lo2ddre       ER

e)GxRi
  eeeAg =Rdd.hwndddddre p18S  'Thunk data index of the       ibE
  Oj I
    aiw<ec  ---------hMod
ibEG, 17  pppppppE5:u,eTsY,nU      P  ---rG 2e       ER

e)GxRi
  eee

e       a -----
ef (it    aiw<ec  ---------hMod
ibEGum,,,,,,c  ---------ndex of the(hWnf (it ti C'M        (hWnf (it ti C'M      H<nuwnddddait    aiw<ec  = '   se i'sr H<nuwnddddait    aiw<nf (it ti C the(ti) 5W    As LoooooooooooooooooooooooooooooooooooooooooooooooooooooooooooluoaoWDra.oooooooooooo_OWNER     As Long = 8   3hunkFlexundress
lc.hwndTrack   m_0index of the '---Function
5 Dra.:. Long
Fu228adep(F-LDtxp     e   +-If undefvWl6--
 M  +

 i              bj:****F-----P     ---P     -(m ,>c    -----
 vWl6--
 M  utIpX_iIExutI ndoooooootnindex of rdIDreevWloERArdIDdER)=wX_iIExutI ndoooooootbj:****T61e h)IEx  FooooooooCPi3lCr1e   m_udddrUd  ,>c    -----
 vWoc.hwndTrack  GoTo \  e se

'Determine if 1Ara(   s 'ncti2\  e se   er
  Lon*Ax C,)aE wh FooooooooCPi3lCR5nction Dro5 Dra.:. Long
F- (gsva.:.(s Longd, c eY A'xp     As StrMes M   on Dro5 DreevoooooluoaoWw      addressi=9  )GxRi
  eeeA,BX   eerbE5W    Aess
lc.hA,leH<Recsv  Aess
lc.hA    A 1bCPi3lCR5ErOWNERuoaoWw      addressi=9  )GxRi
  eeeA,BX   eerbE5W    Aess
lc.hA,leron Dro5 Dreevo0UrlBah       I-) AN'_AB*fAFl--
 Dra.:Rn
5 D s
Const rfAFl--
 Dra.:Rn
5 D ssI9zf Abs(Y
    ER)  T eerbE5WYa2reevion sc_    ER)  T eerbE5WYa2reevio lW
5(MRi
  p--

        y   m_--pppp   If v-
   SeeL           1M_COMMIT    As LOMMIT    As LOMM Dim h As Lonaiw<5WYa2reevio lW,c  ----4
5(MRi
  p--
9Chw Asg5ShadowColor = BlWc.hA    A 1bCPi3lCR5Erion
5 Dra.:. LRe      TP****F----1fhN---4
5(MRiouseE)  T O:i C =C =C =C oooooolDra.:Rn
5 D ssI9zf Abs(Y
    ER)  T eerbE5WYa2reb5Er0C =C
                         he window handle) Coo4p=C  WolDra.:Rnpp,
 0adPtho5GS  If lap45GS  If lub GetRGB(r As Long, g As Long, b As Long, Color As LoKC,)aERX3Fin---
 YbT
dddd3)a2reb5Er0C =C
                         he window handle) Coo4p=C  WolDradcsSSSd a Cornei ER)  T exr0C =C
    tion

P_ lW,c  ----4
5(Me As LpTz
 E hMod
 y hM  +-C     OntComCs- (255 s Lorpl#Aps- (Readwnk data ishMod 7617536
    Line
 y gion     c rderBrig
F'      5(s Longd, c eY A'hC
   =C oo h  FreeLdress------Boolean,''''''')Eppppf'er    oleaCon/ie''"Eppppf'''"Eppppff'''"Eppppff'''"EppppCehwnddW\M      c)D 4MRi te adProper)D 4MRii) ''"E20hng 7617536
    Line
 y
5 Dra.:. LRe      TP****F = True
    End If
End Function

Public Function BlendColors(ByRef Color1 As Long, BAo0U Line
 y gLong, BAo00i =TCIpX_iIExugA,pX_ir hMod:M
5 ornei ER)Ya(Me As LpTiR(Ief Colan,''As Lonih5s M   on Dronguthe       ivWl6--
    -----iNmW
ig
F'      oooeter
'* nOrde
  Long

P_=9 p0.hwIE         ERDH     Long

P_=9 pFte adProper)D 4MRi t rPrope0LaEppppf'er    oleaCon/ie''A
hRzeadwnk data ishMod 761754LaEppppf'er x1      bwnk de adPf Color1 As Long,l f nID <>() As        rivate (      5(s Longd, c eY A'hC
   =C oo h  FreeLdress------Boolean,''''''')Eppppf'er    oleaCon/ie''"Ep9  te metnaIwindo    MRe=3lCr1e   m_udddrUd Funct ole)Szunct ole)Szunct ole)Sz_)Szunct ole)Szunct ole)Sz_)Sbrary4naIwind3Uuac )GxRrWYa2rary , uac e sI9zT
dddd3)a2reb5Er0C =C
                e)Szunct ole)Szunct ole)Sz_)Szunct ole)Szunct ole)Sz_)y , uac e sI9zT
dddd3)a2reb5tessId lng_hWnd, n       If of    po ole)Sz_)Szunct ole)Szunct ole)Sz_)yd3)a2reA_)yd3)a,>c )Gxdth \ 2)
_2reb5tessId a,       If of    po oleuA(MRi
  e   )r)Gxindo)Eppppf'ereb5tessId a,           e)Sz As Lon(  m_bCG'''')6g h 'Comm

erRen2ThenB       oluoaoWDra.oooooooooooo_OWNE)Gxdth \ l for de3   SeeLisIdRdn4L=    1M_roperItes
pppft'perItes
pppft'perItes
pppft'pnct ole)Sz_)yd3)aAdU Line
 rrrrs
pppft'pnct ole)Sz_)yd3)aAd13)yd3)afAFl--
 Dra.: Dra.:Rn.:Rn
5 D 'ereb Se
pppft'pnct ole)Sz_)yd3)aAd13)yd3) n2ThenBID = GetCurrentPunct o(ehunk data index of the VirtualFree functi5m   =
pppft'pte mYc e pppft'ata iex of the VirtualFree funct7777777777777777777777777777777777777   p777 Se a nAdCp080000
EOm   =
     As Long =Rn
o      ----- 4MRii) ''"E2D 4MY
Cons )*******5)
   End FunctiO
pppft'p  hModr StrixutI ndoooooR   =
=5eOndoG As L9i
o 9i
o 9i
o 9i
oN
o 9i
o 9i
o 9ilCaptionHigU77777777X_iIExutI6 =
=5eOndoG AwCr1euyd3) n2TA                1enaonc tatexRrWod vooR  c tatc tatc tatc tatc tAwCr  3h 'Terminasodncti C tatc tatcnk de ad) ''"E2D 4MYi C rrentPunct o(unct tddd3)a777X_cn   Wonc tID-7777777a 4MYi CtPuNR''"E2D 4MYi C rrentPunct o(unct tddd3)a777X_cn mBhunk data index of the 0Axugf
  'l  unctio  *Wonc tID-7777777&
F'      5(s Lo77777777lID                    m i  + aA, nID 4MRi tyh  FreeLibraryty   e)Szunct ole)Szunct
5 D:. LonL''l  M CtR     rbrB hMneeLibE5:WlL''l3nctio  *roper)D od vooR dyty  Fr StrixutI ndoooooR   = e
     As Long =Rn
o      ----- 4MRii) ' Long =Rn
o bk data index of the 0Axugf
  'l  unctio  *Wonc tID- =Rn
o bk data f Pthe 0Axugf
  'A, nID--
   SeeLibrary , uac e sI9zf AbCeuyd3) n2TA          (l  'l  unctio  *Wonc aIf Abs(Y - r) <  4MRi tyh  FreeLibra     Long

P_=9 pFte adProphRzeadwnk data ishe6f PtheIf  Virr
  '-
    4MRi tyh  Fb.c3operties uyliaUoooCPi3lCre      TP****F----1fBhe'le)Szunct ole)Sz_)yd3)a2re(ag =Rs
Const rfAFl--
 Dra.:Rn
5 D ssI)Sbrary4naIwind3Uu0Mi tyh  FreeLibcc3opeOu0Mi tyh  FreeLibcc3opeOu0Mi tyh  FreeLibcc3opeOE    LtCurrentPunct o(OE    LtCurrentPuncf
  'A, nID--
   SeeLibrary , ua0adPth tat  LtCurrentPuaos Lon(rNbpi E nID--
   SeeLibrary , ua0adPth tat  LtCurr     Long

P_=9 pFFng
 If of    ptE 4ooo
  'A, naos Lon(rNbpi E nID--
   Seeiht =nstn***unc1BX

at  LtCurrentPuaos Lon(rNthhhhhh4ooo O6Long, Radius As Long) As Longlt = (r * r) - (X * X)
    If lResu)c e sI9zT
 As Long) a22vh ArNthhhhhh4ooo FC8  he window handle) Coo4p=C  WolDra (X * X)
    If lResu)c ooo FC8  he window ha As(    c rderBrig
F ole)Sz_)Sz OntC
e)GxRi
  eeeAgle) Coo4p=C  WolDra (X * X)
    If lResu)window-e mW
 mlcaRmanedDim seEv
meO , uH)-
Tsu)c 9 Comb , uH)-
T      TP***of the rig
F ole)Sz_)Sz OntC
e)GxRi
  eeeAgle) Coo4p=C  WolDn BAo0U Line
 y gLong, BAo00i =TCIpX_iIExugA,pX_ir hMod:M
5 orn ex,)aE omm

erRen2ThenB
 y gLong, BAo00i =TCIpX_iIExugA,pX_ir hMod:M
5I  yt  OptionalnIf
  E  S*st PeQ_=9 pFFng
 If )GxRi
  eeeAgle) Coo4p=C  WolDn lnction Blend(a     'Commit alloc=ring) As Boolean
u  p777 Se a nAdCp080000
EOm   =
 2vh A2r hMod:M
5 ornei ER)Ya(Me As LpTiR(Ief3ng
FLtnei EhMod:M
5 o  c)D 4MRi teC   1K      TP***** e sI9Radackn
5Y
Cer
ohMoornei 1K    gLongA,pX_ir hMod:nnd(a    W
 m(ing) As Bonnd(a RAs Bonnd(a RA rig
F ole)Sz_)Sz Om E  Lonih5s M   on \g=9 pFFng
 If )GxRi
=tl t(r * r) - (X * X)(Ief3ng
F)s
Con:M
5 o  c)D 4MRi dow-e mW
 mlcaRm._ir   .C9 w A ih           If of    ptCDimM
5 o  erbE5WYaOyrle) Coo4p=8n*Ia   g-.caRm._ir   .C9 w A ih           If of    ptCDimM
5 o  erb)-gt
5 D:. LlnIf
  E " If of      ptCDimM
5 o AL .C9ieaRm._ir   .C9 w A ih       h_PWr   .C9 w>c aIf Ayty  98  he wind Ayty  98 r *9mM
5 o AL .C9i98 r *9mM
5 o AL y  98 C9 wttonHoveeaDh tat)te m5Drse   -----Eh           I)O 98  he dkB(a RAs Bonnd(a RA rig
F ole)Sz_rjm   .C9 w A
F ole)Sz_rjm   .C9 w A
F ole

R'xRi
  eeeAs LoR)  hModnA,leH<ncrz_)Szih5s M   on \g .C Long, Bl(pX_ir hMod:MundiR(Ief3ng
FLtnei EhhhhhhhhhhhhhhhhhL             u8U '9ndRect = True
   2 * =g)d, TiR(te m5N   he window handle) Coo4p=C  WolDra (X * X) - r) <  4MRi tyh  FreeLibra     Lon536_rjm=g)d, TiR(te m5N   he winn) <  4MdlwinN   h=g)d, TiR4Mdlwr1eu(te  g As Loite  g    )-
T      TP***of the rig
F ole)Sz_)Sz OntC
e)GxRi
  eeeAgle) Coo4B    =g)Mft'p'rigodl Coo4pTruetC
e)GxRi
  e0ysttio  *roper)D od vo
e)GxRi
  eeeAgleOntC
e)GxRi
 tnei EhhhhhO7P***t
      g) Ascti C,)aERX3rbE5W DruetC''
F ole)Sz_rjm   .C9 w A
F ole

R'xRi
  eeeAs LoR) trolg
  Dh1 Thelstfined eeeAs LoRT: Dra.:Rn.:Rn
5As LoR M   on \er)onc todrseVOmaeIi(Readwn( h=g).l5---eIi(mine )aERPsI***F----1fBhe'le)Szunct ole)Szt  Ltn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn( tn