Planet Source Code Jumbo …e CD Visual Basic 1 to 7/5_2007-2008.ISO/data/Zips/ucMsgBox_-2054113162007.psc/Controls/ucMsgBox.ctl

Text File | 2007-03-16 | 98KB | 1,203 lines

VERSION 5.00
Begin VB.UserControl ucMsgBox
   ClientHeight    =   3600
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4800
   InvisibleAtRuntime=   -1  'True
   Picture         =   "ucMsgBox.ctx":0000
   ScaleHeight     =   240
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   320
   ToolboxBitmap   =   "ucMsgBox.ctx":045C
End
Attribute VB_Name = "ucMsgBox"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'+  File Description:
'       ucMsgBox - A Selfsubclassed Theme Aware ucMsgBox Control which Provides Correct Theme Visualization
'
'   Product Name:
'       ucMsgBox.ctl
'
'   Compatability:
'       Widnows: 9x, ME, NT, 2K, XP
'
'   Software Developed by:
'       Paul R. Territo, Ph.D
'
'   Based on the following On-Line Articles
'       (Paul Caton - Self-Subclassser)
'           http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54117&lngWId=1
'       (Mario Flores - WinXPEngine)
'           http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=51400&lngWId=1
'       (Fred.cpp - isButton)
'           http://www.devx.com/vb2themax/Tip/19239
'       (Randy Birch - IsWinXP)
'           http://vbnet.mvps.org/code/system/getversionex.htm
'       (Randy Birch - TrimNull)
'           http://vbnet.mvps.org/code/core/trimnull.htm
'       (Randy Birch - Center MsgBox)
'           http://vbnet.mvps.org/code/hooks/messageboxhookcentre.htm
'       (Randy Birch - Timed MsgBox Destroy)
'           http://vbnet.mvps.org/code/hooks/messageboxhooktimerapi.htm
'       (Aftab Mahar - Set Process Priority)
'           http://www.developerspk.com/showthread.php?t=20
'       (Philip Manavopoulos & Aaron Young - MsgBox BackColor / ForeColor)
'           http://www.vbforums.com/showthread.php?t=329373
'       (MSDN eMagazine - Replacing the Icon)
'           http://msdn.microsoft.com/msdnmag/issues/02/11/CuttingEdge/
'
'   Legal Copyright & Trademarks:
'       Copyright ⌐ 2006, by Paul R. Territo, Ph.D, All Rights Reserved Worldwide
'       Trademark Ö 2006, by Paul R. Territo, Ph.D, All Rights Reserved Worldwide
'
'   Comments:
'       No claims or warranties are expressed or implied as to accuracy or fitness
'       for use of this software. Advance Research Systems shall not be liable for
'       any incidental or consequential damages suffered by any use of this software.
'       This software is owned by Paul R. Territo, Ph.D and is sold for use as a
'       license in accordance with the terms of the License Agreement in the
'       accompanying the documentation.
'
'   Contact Information:
'       For Technical Assistance:
'       [e-mail]
'
'   Modification(s) History:
'
'       13Aug06 - Initial Usercontrol Build (Modified from WinXPEngine)
'       15Aug06 - Fixed Button Focus Bug in Drawing Routine which painted them as StateNormal
'       16Aug06 - Fixed the BrowseForFolder (BFF) loading conflict which prevented the global
'                 subclassing of the MsgBox. The BFF uses the exact same ClassName, but different
'                 WndowCaption than the MsgBox, so this is how we can differentiate it...
'               - Added Alignment property and code to allow for MsgBox alignment
'               - Added DrawFilledRect and Translate Color routines
'               - Added DrawFilledRect to DrawWinXPButton routine to clean up the button painting
'                 along the edges and corners
'       20Aug06 - Fixed the Common Dialog (CD) and BFF ClassName conflict once again....it seems that
'                 all three window classes share the same base Class, but have different captions.
'                 Since the CD's caption can be changed this was not a reliable method for identification.
'                 Given this, and the fact that the Window Styles were unique between the objects, we
'                 could differentiate the MsgBox by ClassName and WindowStyle.
'               - Fixed Looping bug when stop subclassing the MsgBox
'               - Fixed Painting error when the mouse was down over a button and we moved...This
'                 caused the button to not be painted in the correct style and showed the default
'                 Win9x style instead of our down state.
'       11Oct06 - Moved Alignemt and Theme properties into the m_MsgBox structure
'               - Added SelfClosing property, type, and m_MsgBox structure elements
'               - Added Duration property, type, and m_MsgBox structure elements
'               - Added Dialog Prompt setting based on time left
'       28Nov06 - Added Parent and ParentType to the m_MsgBox structure to allow for tracking of the
'                 hWnd and Type of the Host Object
'               - Fixed lLeft, lTop, lWidth, and lHeight calculations in the zSubclass_Proc to provide
'                 a method to compute these when the host object is being destroyed and has gone
'                 out of scope. Under these conditions, the reference to UserControl.Parent.Left (.Top...etc)
'                 are not valid and throw an error which freezes the IDE since the MsgBox is Modal!!
'               - Added ThreadPriority property to allow for real-time priority for the thread which allows the
'                 Timer to have the New Priority other than "mbNormal"
'               - Added SetProcessPriority to set the process priority
'               - Fixed TimerProc bug which resulted in timer intervals which were incrementally
'                 shorter on subsequent calls....cause: passing ByVal 0& instead of AddressOf Proc pointer
'                 from sc_aSubData array.
'               - Added CenterCaption to permit message centering for all passed prompts
'       03Dec06 - Added AutoCenterPrompt property to allow for centering of the prompt from the property dialog
'               - Added ForeColor Property to allow for Prompt and Button text being changed
'               - Added BackColor Property to allow the Main form BackColor to be changed
'               - Optimized DrawWinXPButton to correctect for stray pixels around each button
'               - Optimized CenterCaption to now compute the correct spacing for centering of
'                 the passed Prompt string
'               - Set Init Properties to match the PropertyRead/Write defaults
'       07Dec06 - Removed CenterCaption Method
'               - Removed AutoCenterPrompt property
'               - Added AlignPrompt property to replace the two above methods/prop.
'               - Added an All API method (SetWindowLong) for Aligning the Prompt Text instead of padding the string.
'               - Added Icon Property to allow for custom MsgBox icon replacment
'               - Added DrawWin9xButton routine and associated methods to replicate the actual dialog
'                 3D buttons. This allows us complete control of the colors and painting.
'               - Added Support for Storing Either Win9x or WinXP States depending on the Theme
'       08Dec06 - Fixed Minor bug in the SDIHost_QueryUnload and MDIHost_QueryUnload which incorrectly
'                 set the subclassing flag and attempted to re-subclass the object on shutdown
'               - Added hDC Property to allow Painting via this Mechanism
'               - Added Additional Status Messages
'       11Dec06 - Fixed Minor bug in the zSubclass_Proc, section WM_CTLCOLORDLG, WM_CTLCOLORSTATIC
'                 where we were we passed invalid Icon.Pictures to the SendMessage API.
'       18Dec06 - Added CustomCaption property to allow the dynamic switching of Default or Customs Captions
'               - Added Caption Property and Structure element to permit custom button captions
'               - Updated DrawWin9xButton and DrawWinXPButton methods to not permit custom dialog
'                 button captions. Note: From a Software Engineering standpoint the CustomCaption structure
'                 elements should be in the Button button field (i.e. m_MsgBox.Button(n).CustomCaption), but these are
'                 dynamic arrays which are built just prior to the MsgBox being shown. As such, we have
'                 choosen to place this struture element at the m_MsgBox level (i.e. m_MsgBox.CustomCaption(n)
'                 so that they can be passed at runtime....
'               - Added Subclass_StopAll to the zIdx method to prevent dialog faults which hault the mouse
'                 and keyboard on subclassing errors. We also removed the Debug.Assert False statment
'                 as this is the main cause of issues when working with modal dialogs of this sort.
'       19Dec06 - Fixed minor bug in the SetProcessPriority method which hard coded the value....left over from testing ;-D
'               - Added With structure to WM_ACTIVATE message section to allow for greater clarity
'       24Feb07 - Added Expanded Theme Emulation for XP Luna Blue, HomeStead, and Metallic to the DrawXPButton routines
'               - Bug still remains in the DrawAlphaVGradient which provides the "highlight" alphablending
'                 between the background gradient and white
'       11Mar07 - Removed DrawAlphaVGradient and AlphaBlend methods and replaced with Direct Gradient calls
'                 to DrawVGradient and DrawVGradientEx for Metallic Luna Styles
'               - Updated all Luna Metallic painting routines to reflect the corrected emulation style
'               - Extended Theme Enum to encompass all possible default Luna Themes
'                 (mbBlue (Blue), mbHomeStead (Olive Green), mbMetallic (Silver))
'
'-  Notes:
'       This ucMsgBox control intercepts the ucMsgBox Call to the systems MessageBox API, and provides
'       the ability to Paint the controls surfaces as we see fit. In addtion, with a little care we
'       can position the control before it is shown and adjust the BackColors, ForeColors, Fonts
'       and even the MessageBox Icons. The System Icons are ~32x32 Pixels with 24BPP if you plan to
'       pass them from VB controls like ImageLists, Image, or PictureBoxes. The Icon window can handle
'       icons which are 48x48 Pixels (24BPP) as well, but care should be taken to test these out prior
'       to using them directly. The hDC is the DC to the Icon Window at "runtime" since the object does
'       not exist until the MsgBox is called from the Host Object
'
'       There is one known issues with this control that can cause the Modal dialog to hault.
'       One key issue is Double Subclassing or Failing to UnSubclass the MsgBox. This will allow the
'       dialog to be painted the first round, but will cause a Debug.Assert in the zIdx method on all
'       subsequent calls to the daialog. The result will be a hault of the subclasser and a Modal MsgBox
'       Dialog....the net result being that the mouse will not work in either the IDE, Dialog, or Host Object.
'       The only way to exit this is to F8 (Run) until you throw the exeption dialog in the IDE and click End.
'       Be forewarned this may cause the IDE to crash!! I have extensively tested this and only has this happen
'       when I did not follow the above rules....in short, the control is stable, provided the above caviate.
'
'       One Minor bug still exists when using fonts which are significantly different than Ambient.Font. In this
'       case we will need to adjust the Prompt Rect to fit the new Font proportions. This can be achieved by the
'       DrawText with the DT_CALCRECT flag. This is still under development....
'
'   Build Date & Time: 3/11/2007 11:52:32 PM
Const Major As Long = 1
Const Minor As Long = 0
Const Revision As Long = 240
Const DateTime As String = "3/11/2007 11:52:32 PM"
'
'   Force Declarations
Option Explicit

'   Private Constants
Private Const VER_PLATFORM_WIN32_NT As Long = 2

'   Msgbox Constant
Private Const WC_DIALOG As String = "#32770"        'Win32 Classname for MsgBox Dialog
Private Const MB_ICON As Long = &H14

'   Window Enum Constants
Private Const GWL_STYLE As Long = (-16)
Private Const GWL_EXSTYLE As Long = (-20)
Private Const GW_HWNDNEXT As Long = 2
Private Const GW_CHILD As Long = 5
Private Const GW_HWNDFIRST As Long = 0

'   DrawText Flags
Private Const DT_CENTER As Long = &H1
Private Const DT_VCENTER As Long = &H4

'   MsgBox Prompt Flag
Private Const IDPROMPT As Long = &HFFFF&
Private Const IDOK As Long = 1
Private Const IDCANCEL As Long = 2
Private Const IDABORT As Long = 3
Private Const IDRETRY As Long = 4
Private Const IDIGNORE As Long = 5
Private Const IDYES As Long = 6
Private Const IDNO As Long = 7

'   Private MsgBoxTimerID
Private Const MB_TIMERID As Long = 999

'   Private Class Priority Constants
Private Const REALTIME_PRIORITY_CLASS = &H100
Private Const HIGH_PRIORITY_CLASS = &H80
Private Const NORMAL_PRIORITY_CLASS = &H20
Private Const IDLE_PRIORITY_CLASS = &H40

'   Private TextAlign Flags for Static Windows
Private Const SS_LEFT As Long = &H0
Private Const SS_RIGHT As Long = &H2
Private Const SS_CENTER As Long = &H1

'   Private Icon Flag
Private Const STM_SETICON As Long = &H170

'   Os Window Types
Private Type OSVERSIONINFO
    OSVSize         As Long         'size, in bytes, of this data structure
    dwVerMajor      As Long         'ie NT 3.51, dwVerMajor = 3; NT 4.0, dwVerMajor = 4.
    dwVerMinor      As Long         'ie NT 3.51, dwVerMinor = 51; NT 4.0, dwVerMinor= 0.
    dwBuildNumber   As Long         'NT: build number of the OS
                                    'Win9x: build number of the OS in low-order word.
                                    '       High-order word contains major & minor ver nos.
    PlatformID      As Long         'Identifies the operating system platform.
    szCSDVersion    As String * 128 'NT: string, such as "Service Pack 3"
                                    'Win9x: string providing arbitrary additional information
End Type

'   Required Type Definitions
Private Type RGBQUAD
    rgbBlue                     As Byte
    rgbGreen                    As Byte
    rgbRed                      As Byte
    rgbReserved                 As Byte
End Type

Private Type POINT
    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 Type LOGFONT
    lfHeight          As Long
    lfWidth           As Long
    lfEscapement      As Long
    lfOrientation     As Long
    lfWeight          As Long
    lfItalic          As Byte
    lfUnderline       As Byte     '   //--The LOGFONT structure defines the attributes of a font.
    lfStrikeOut       As Byte
    lfCharSet         As Byte
    lfOutPrecision    As Byte
    lfClipPrecision   As Byte
    lfQuality         As Byte
    lfPitchAndFamily  As Byte
    lfFacename        As String * 32
End Type

'   Private MsgBox Types for Holding Object Data
Private Type mbButtonType
    hWnd As Long                        'Handle of the Button
    State As mbState                    'Current State of the Button
    Caption As String                   'Caption of the Button
End Type

Private Type mbPromptType
    hWnd As Long                        'Handle to the Prompt
    hdc As Long                         'DC of the Prompt
    lpRect As RECT                      'Rect of the Prompt
    Caption As String * 1024            'Prompt Caption of the Main Dialog...
    ForeColor As OLE_COLOR              'ForeColor Property
    Alignment As mbPromptAlignEnum      'Prompt Aligment Flag
End Type

Private Type mbIcon
    hWnd As Long                        'Icon Window handle
    hdc As Long                         'DC of the Icon window
    lpRect As RECT                      'Rect of the Window
    Picture As StdPicture               'Picture Property of the Icon
    PrevPicture As Long                 'Handle to the Previous Picture
End Type

Private Type mbTimerType
    TimerDuration As Long               'How long a Timer Waits
    TimerID As Long                     'Unique ID for the Timer
    ThreadPriority As mbPriorityEnum    'Process Priority for MsgBox Timer
    TimerToken As String                'Token String for the CountDown Timer
End Type

Private Type mbMsgBoxType
    Alignment As mbAlignEnum            'MsgBox Alignment Type
    BackColor As OLE_COLOR              'BackColor Property
    Button() As mbButtonType            'Array of Buttons
    CustomCaption(3) As String          'Custom Caption for the Button
    CaptionType As mbCaptionEnum        'Type of Button Captions to Use
    Count As Long                       'Number of Buttons in the Array
    DefaultIndex As Long                'Index of the Default Button
    DownIndex As Long                   'Index of the Down Button
    Font As Font                        'Font to Use
    hdc As Long                         'MsgBox Form DC
    hWnd As Long                        'MsgBox Form Handle which Hosts the Buttons
    Icon As mbIcon                      'Handle to Icon Window
    lpRect As RECT                      'Rect of the MsgBox Dialog
    Parent As Long                      'Host Objects hWnd
    ParentType As mbParentTypeEnum      'Type of Object which hosts the MsgBox
    Prompt As mbPromptType              'Prompt Infomation
    SelfClosing As Boolean              'Use Timer for SelfClosing...
    Theme As mbThemeEnum                'Current Theme
    TimerInfo As mbTimerType            'Timer Specific Information....
End Type

Private Enum mbParentTypeEnum
    [mbSDIForm] = &H0
    [mbMDIForm] = &H1
End Enum
#If False Then
    Const mbSDIForm = &H0
    Const mbMDIForm = &H1
#End If

Private Enum mbState
    StateNormal = &H1
    StateHot = &H2
    StatePressed = &H3
    StateDisabled = &H4
    StateDefaulted = &H5
End Enum
#If False Then
    Const StateNormal = &H1
    Const StateHot = &H2
    Const StatePressed = &H3
    Const StateDisabled = &H4
    Const StateDefaulted = &H5
#End If

Public Enum mbAlignEnum
    [mbCenterScreen] = &H0
    [mbCenterOwner] = &H1
End Enum
#If False Then
    Const mbCenterScreen = &H0
    Const mbCenterOwner = &H1
#End If

Public Enum mbCaptionEnum
    [mbDefault] = &H0
    [mbCustom] = &H1
End Enum
#If False Then
    Const mbDefault = &H0
    Const mbCustom = &H1
#End If

Public Enum mbPromptAlignEnum
    [mbLeft] = SS_LEFT
    [mbRight] = SS_RIGHT
    [mbCenter] = SS_CENTER
End Enum
#If False Then
    Const mbLeft = SS_LEFT
    Const mbRight = SS_RIGHT
    Const mbCenter = SS_CENTER
#End If

Public Enum mbPriorityEnum
    [mbRealTime] = REALTIME_PRIORITY_CLASS          'Highest Priority
    [mbHigh] = HIGH_PRIORITY_CLASS                  'Second Highest Priority
    [mbNormal] = NORMAL_PRIORITY_CLASS              'Third Highest Priority
    [mbIdle] = IDLE_PRIORITY_CLASS                  'Lowest Priority
End Enum
#If False Then
    Const mbRealTime = REALTIME_PRIORITY_CLASS
    Const mbHigh = HIGH_PRIORITY_CLASS
    Const mbNormal = NORMAL_PRIORITY_CLASS
    Const mbIdle = IDLE_PRIORITY_CLASS
#End If

Public Enum mbThemeEnum
    [mbAuto] = &H0
    [mbClassic] = &H1
    [mbBlue] = &H2
    [mbHomeStead] = &H3
    [mbMetallic] = &H4
End Enum
#If False Then
    Const mbAuto = &H0
    Const mbClassic = &H1
    Const mbBlue = &H2
    Const mbHomeStead = &H3
    Const mbMetallic = &H4
#End If

Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) 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 CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function DrawFocusRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Private Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long
Private Declare Function GetBkColor Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function GetCurrentThemeName Lib "uxtheme.dll" (ByVal pszThemeFileName As String, ByVal dwMaxNameChars As Integer, ByVal pszColorBuff As String, ByVal cchMaxColorChars As Integer, ByVal pszSizeBuff As String, ByVal cchMaxSizeChars As Integer) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINT) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Private Declare Function GetDlgItemText Lib "user32" Alias "GetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As Any) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd 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 LineTo Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function LStrLen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, lpPoint As POINT) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function OleTranslateColorA Lib "olepro32.dll" Alias "OleTranslateColor" (ByVal OLE_COLOR As Long, ByVal hPalette As Long, pccolorref As Long) As Long
Private Declare Function OleTranslateColorEx Lib "oleaut32.dll" Alias "OleTranslateColor" (ByVal lOleColor As Long, ByVal lHPalette As Long, ByVal lColorRef As Long) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Declare Function PutFocus Lib "user32" Alias "SetFocus" (ByVal hWnd As Long) As Long
Private Declare Function RedrawWindow Lib "user32" (ByVal hWnd As Long, lprcUpdate As Any, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINT) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Private Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) 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 SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass 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 SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function SetTextAlign Lib "gdi32" (ByVal hdc As Long, ByVal wFlags As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)

'   Private variables
Private lzCount             As Long             'zSubclass Index to the Proc Address
Private lCount              As Long             'Counter for the Timer
Private bMsgBoxSubClass     As Boolean          'SubClass Flag of the MsgBox
Private bTimerRunning       As Boolean          'Timer Running Flag for SelfClose
Private m_AutoTheme         As String           'String Var to hold the Theme info
Private m_MsgBox            As mbMsgBoxType     'MsgBox Type which hold the MsgBox Object Data
Private m_Theme             As mbThemeEnum      'MsgBox Theme for property "Get"
Private bHasIcon            As Boolean          'Flag which indicates the the dialog is using the icon

Private WithEvents SDIHost  As Form
Attribute SDIHost.VB_VarHelpID = -1
Private WithEvents MDIHost  As MDIForm
Attribute MDIHost.VB_VarHelpID = -1

'==================================================================================================
' ucSubclass - A template UserControl for control authors that require self-subclassing without ANY
'              external dependencies. IDE safe.
'
' [e-mail]
' Copyright free, use and abuse as you see fit.
'
' v1.0.0000 20040525 First cut.....................................................................
' v1.1.0000 20040602 Multi-subclassing version.....................................................
' v1.1.0001 20040604 Optimized the subclass code...................................................
' v1.1.0002 20040607 Substituted byte arrays for strings for the code buffers......................
' v1.1.0003 20040618 Re-patch when adding extra hWnds..............................................
' v1.1.0004 20040619 Optimized to death version....................................................
' v1.1.0005 20040620 Use allocated memory for code buffers, no need to re-patch....................
' v1.1.0006 20040628 Better protection in zIdx, improved comments..................................
' v1.1.0007 20040629 Fixed InIDE patching oops.....................................................
' v1.1.0008 20040910 Fixed bug in UserControl_Terminate, zSubclass_Proc procedure hidden...........
'==================================================================================================
'Subclasser declarations

Public Event Status(ByVal sStatus As String)

Private Const WM_ACTIVATE               As Long = &H6
Private Const WM_CLOSE                  As Long = &H10
Private Const WM_COMMAND                As Long = &H111
Private Const WM_CREATE                 As Long = &H1
Private Const WM_CTLCOLORSTATIC         As Long = &H138
Private Const WM_CTLCOLORDLG            As Long = &H136
Private Const WM_EXITSIZEMOVE           As Long = &H232
Private Const WM_LBUTTONDOWN            As Long = &H201
Private Const WM_LBUTTONUP              As Long = &H202
Private Const WM_MOUSELEAVE             As Long = &H2A3
Private Const WM_MOUSEMOVE              As Long = &H200
Private Const WM_MOVING                 As Long = &H216
Private Const WM_NCPAINT                As Long = &H85
Private Const WM_PAINT                  As Long = &HF
Private Const WM_RBUTTONDBLCLK          As Long = &H206
Private Const WM_RBUTTONDOWN            As Long = &H204
Private Const WM_SETFOCUS               As Long = &H7
Private Const WM_SIZING                 As Long = &H214
Private Const WM_SYSCOLORCHANGE         As Long = &H15
Private Const WM_THEMECHANGED           As Long = &H31A
Private Const WM_TIMER                  As Long = &H113

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 bInCtrl                      As Boolean
Private bSubClass                    As Boolean

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function LoadLibraryA Lib "kernel32" (ByVal lpLibFileName As String) As Long
Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) 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

Private Enum eMsgWhen
    MSG_AFTER = 1                                                                   'Message calls back after the original (previous) WndProc
    MSG_BEFORE = 2                                                                  'Message calls back before the original (previous) WndProc
    MSG_BEFORE_AND_AFTER = MSG_AFTER Or MSG_BEFORE                                  'Message calls back before and after the original (previous) WndProc
End Enum
#If False Then
    Private Const MSG_AFTER = 1                                                                   'Message calls back after the original (previous) WndProc
    Private Const MSG_BEFORE = 2                                                                  'Message calls back before the original (previous) WndProc
    Private Const MSG_BEFORE_AND_AFTER = MSG_AFTER Or MSG_BEFORE                                  'Message calls back before and after the original (previous) WndProc
#End If

Private Const ALL_MESSAGES           As Long = -1                                   'All messages added or deleted
Private Const GMEM_FIXED             As Long = 0                                    'Fixed memory GlobalAlloc flag
Private Const GWL_WNDPROC            As Long = -4                                   'Get/SetWindow offset to the WndProc procedure address
Private Const PATCH_04               As Long = 88                                   'Table B (before) address patch offset
Private Const PATCH_05               As Long = 93                                   'Table B (before) entry count patch offset
Private Const PATCH_08               As Long = 132                                  'Table A (after) address patch offset
Private Const PATCH_09               As Long = 137                                  'Table A (after) entry count patch offset

Private Type tSubData                                                               'Subclass data type
    hWnd                               As Long                                      'Handle of the window being subclassed
    nAddrSub                           As Long                                      'The address of our new WndProc (allocated memory).
    nAddrOrig                          As Long                                      'The address of the pre-existing WndProc
    nMsgCntA                           As Long                                      'Msg after table entry count
    nMsgCntB                           As Long                                      'Msg before table entry count
    aMsgTblA()                         As Long                                      'Msg after table array
    aMsgTblB()                         As Long                                      'Msg Before table array
End Type

Private sc_aSubData()                As tSubData                                    'Subclass data array

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 GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem 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 Sub RtlMoveMemory Lib "kernel32" (Destination As Any, Source As Any, ByVal Length As Long)

'======================================================================================================
'Subclass handler - MUST be the first Public routine in this file. That includes public properties also
Public Sub zSubclass_Proc(ByVal bBefore As Boolean, ByRef bHandled As Boolean, ByRef lReturn As Long, ByRef lng_hWnd As Long, ByRef uMsg As Long, ByRef wParam As Long, ByRef lParam As Long)
    'Parameters:
        'bBefore  - Indicates whether the the message is being processed before or after the default handler - only really needed if a message is set to callback both before & after.
        'bHandled - Set this variable to True in a 'before' callback to prevent the message being subsequently processed by the default handler... and if set, an 'after' callback
        'lReturn  - Set this variable as per your intentions and requirements, see the MSDN documentation for each individual message value.
        'hWnd     - The window handle
        'uMsg     - The message number
        'wParam   - Message related data
        'lParam   - Message related data
    'Notes:
        'If you really know what you're doing, it's possible to change the values of the
        'hWnd, uMsg, wParam and lParam parameters in a 'before' callback so that different
        'values get passed to the default handler.. and optionaly, the 'after' callback
    Dim lhWnd As Long
    Dim ClassWindow As String * 50
    Dim ClassCaption As String * 100
    Dim i As Long
    Dim j As Long
    Dim lpMsgBoxRect As RECT
    Dim lLeft As Long
    Dim lTop As Long
    Dim lWidth As Long
    Dim lHeight As Long
    Dim lIndex As Long
    Dim newLeft As Long
    Dim newTop As Long
    Dim dlgWidth As Long
    Dim dlgHeight As Long
    Dim scrWidth As Long
    Dim scrHeight As Long
    Dim hWndStyle As Long
    Dim hWndStyleEx As Long
    Dim sPrompt As String

    Select Case uMsg
        Case WM_ACTIVATE
            '   Get the Theme and store it....
            m_AutoTheme = GetThemeInfo
            '   Get the Window Style and Extended Style
            hWndStyle = GetWindowLong(lParam, GWL_STYLE)
            hWndStyleEx = GetWindowLong(lParam, GWL_EXSTYLE)
            'Debug.Print "Window Style: &H" & Hex(hWndStyle), "&H" & Hex(hWndStyleEx), "&H" & (Hex(hWndStyle Or hWndStyleEx))
            '   Get the Class Window Styles and make sure this is not the BrowseForFolder (BFF) or the
            '   Common Dialog which also use this same #32770 ClassName. To differentiate these from
            '   MsgBox we get the window Styles which are different between the three objects...namely the
            '   WindowStyles (Style, ExStyle) are as follows: MsgBox (&H84C801C5, &H10101), and the
            '   BrowseForFolder(&H4C820CC, &H10501) and the Common Dailog (&H86CC20C4, &H10501), which then
            '   bitwise "OR" yeilds unique ID that allows us to ignore them when they occur!!
            If (InStr(ThisWindowClassName(lParam), WC_DIALOG) > 0) And ((hWndStyle Or hWndStyleEx) = &H84C901C5) Then
                '   ///////////////////////////////////////////////////////////////
                '   This is the original way Mario Flores was able to locate
                '   the Buttons in MsgBox, but this does not work in UserControls
                '   since the API utilizes a CallBack Function which we can not
                '   address directly....
                'EnumChildWindows lParam, AddressOf EnumChildProc, ByVal 0&
                '   ///////////////////////////////////////////////////////////////
                '   The following is an equivalant routine....but without CallBacks
                '
                '   Get the Prompt string and store the value
                Call GetDlgItemText(lParam, IDPROMPT, m_MsgBox.Prompt.Caption, 1024)
                If (Not bMsgBoxSubClass) Then
                    '   Enumerate child windows...the hard way!!!
                    '
                    '   The MsgBox hWnd is passed by the lParam value
                    '
                    '   Subclass the Main MsgBox Form
                    With m_MsgBox
                        '   Store the Handle of the MsgBox
                        .hWnd = lParam
                        Call Subclass_Start(.hWnd)
                        Call Subclass_AddMsg(.hWnd, WM_MOUSEMOVE, MSG_AFTER)
                        Call Subclass_AddMsg(.hWnd, WM_CLOSE, MSG_BEFORE)
                        '   Subclass the Msgbox Color Dialog messages so we can set the
                        '   BackColor and ForeColor
                        Call Subclass_AddMsg(.hWnd, WM_CTLCOLORDLG, MSG_AFTER)
                        Call Subclass_AddMsg(.hWnd, WM_CTLCOLORSTATIC, MSG_AFTER)
                        '   Now we find the First Button!
                        lhWnd = GetWindow(.hWnd, GW_CHILD)
                        '   Get the ClassName
                        GetClassName lhWnd, ClassWindow, 50
                        '   Get the Caption of the Object
                        GetWindowText lhWnd, ClassCaption, 100
                        'Debug.Print lhWnd, Left$(ClassWindow, 6), Left$(ClassCaption, 6)
                        '   Make sure we found a Button on th MsgBox
                        If (lhWnd <> 0) And (Left$(ClassWindow, 6) = "Button") Then
                            '   Store the First Button Value
                            ReDim .Button(i)
                            With .Button(i)
                                .hWnd = lhWnd
                                .Caption = TrimNull(ClassCaption)
                            End With
                            '   Now check for the remaining buttons, if any...
                            '   Note we only let this Do loop run 5 times....this
                            '   should prevent any endless loops...and besides there
                            '   are never more then 3 buttons ;-)
                            Do While (lhWnd <> 0) And (i <= 4)
                                '   Get the Next Item in the MsgBox
                                lhWnd = GetWindow(lhWnd, GW_HWNDNEXT)
                                '   Get the ClassName
                                GetClassName lhWnd, ClassWindow, 50
                                '   Check to see if this is a button....because
                                '   there are static windows which are used to
                                '   display Icons.....if one wished we could trap
                                '   these and change them by subclassing them
                                '   here as we are for the buttons....
                                If Left$(ClassWindow, 6) = "Button" Then
                                    '   We found one more....so increment things
                                    i = i + 1
                                    '   Now store the new value
                                    ReDim Preserve .Button(i)
                                    '   Get the Caption of the Object
                                    GetWindowText lhWnd, ClassCaption, 100
                                    With .Button(i)
                                        .hWnd = lhWnd
                                        .Caption = TrimNull(ClassCaption)
                                    End With
                                    'Debug.Print lhWnd, Left$(ClassWindow, 6), Left$(ClassCaption, 6)
                                End If
                            Loop
                            '   Store the Icon Window for Later
                            .Icon.hWnd = GetDlgItem(.hWnd, MB_ICON)
                            bHasIcon = .Icon.hWnd <> 0
                            '   "i" holds the number of buttons in the MsgBox
                            '   so we will use this to increment the subclassing
                            '   calls to the Thunk....
                            If i >= 0 Then
                                '   Sublass the Usecontrol
                                Call Subclass_Start(UserControl.hWnd)
                                Call Subclass_AddMsg(UserControl.hWnd, WM_TIMER, MSG_AFTER)
                                '   See if we are using SelfClosing Style
                                If .SelfClosing Then
                                    '   Get a Unique ID for the API Timer by getting the Time Since Midnight
                                    '   We need to keep this reasonable, so we will mod this value
                                    m_MsgBox.TimerInfo.TimerID = (Timer Mod 65535)
                                    'Debug.Print "TimerID: " & m_MsgBox.TimerInfo.TimerID
                                    '   Start the local timer to perform the count down
                                    With .TimerInfo
                                        '   Set the Process Priority for the Timer Thread                     '   Set the Process Puafter the    +      he following is an equival        Host Obje  he following is an equiuO         Wibclasscess Pv classcess  G0e Process Puafter the                       .hWnd = lhity for the Timer equiuO       .......iBsgBox (&H84C801C5, &H10101p801CgiVVVVVVVVVVasscF  Noowing is an equival     F                        '   Now store the new value
                                    ReDim Preserve .Button(i)
                                    '   Get the Caption of the Object
                                    GetWindowT'ho                 .Left AindowT'ho  of tD    Call Subcla Subclass_fers, no                 lM_FIXED   erve .B:ss_fers, no                 lM_FIXED   erve .C
                                            f the Object
7merID: " & ib "user32" AlDDDDDDDDDDDDDDDDDDDDDDDDDDDDDain Msw"         Iout ANY
         iNDPROC                 l, 6), _cal timer to perform the count down
                                    With .TimE()  'Type of Button Capth .TimerInfo
     Capth .    '   Set the Prs '   SeB&nr the
            '   Common Dialog which aers, no need to re-patc H   If (lhWnd <> rs, bA  Capth H   If (lhWnd <> rs, b<> rs,s, b<> rID: " & iBefolfHeight     te nlhWnt doy   I<> rsn    um      'Prompt Aligme......... om      'Pr                   ReDiioC      'Debug.Print    a   'Pr                     -h)         '   Common /.. om      'Pr                   ReDiioC      'Debug.PrintI               l       (bHIns in the MsaNquival     F       Dialog wn    '   WindowStyles (Style, ExStyle) are as follows: es (Style, ExStyle) are as folloStyle) are          l Subclass_AddMsg(.hWnd, WM_CTLCOLORSTATIC, MSG_AFTER)
sing The                        ========="ignorNow stTlMDIForm
Attr the the message is bhandler..s_fers, no         '   We need to keezhe message" & i er..to see if this is a button....because
   gleEx As Long
    Dim sPrompt As String

  7merID: " & ib "user32" W        yle, ByVal crolor 8he window being subclass,eLon Lib "kern1                    ung subclas.hDialog ClassCaption)
                            End WoC   o subclass,eLon Lib "kern1                    ung SubcH          ung subclas.sd2en1                  GTONDBLCLK          As LrintI s     n

PriD: " & ib "user32" W        yle, ByVal crolor 8he win Lib "C    uttonTul Br Threaddow, 50
                                '   Check to see if this is a button....because
            ong) pis a button....because
            ong) pis a button....be for the buttons...j          OtC    .C
                                   reai    Cion)
        3B
Private Cuttons...j          OtC    .C
         sd2en1           gaO5, &2en1       ,?5        f the Object
7merID: " & ib "user32" AlDDDDDDDDDoheck to see if this is a b& ib "user32" AlDDDDDDDDDDDDDDDDDDDDDDDDDDDDDain Msw"   sage" & ean   8
                '    Window for LaL
'Subcla32   g(tyle) are as folloStyle) are   re          lW)lor 8D'RECT                 'Debug.Print lhWe   Call Subcla Sd v1.1.0007 20040629 Fixed InIDE patching oops................................8C     GetWindowT'ho                 .Left AindowT'ho  of tD    Call Subcla SubH0 ClassName. To differentiate these fH0 ClassName. To differentiate these fH0 ClassName. To differentiate these fHLong = &H204
Private x9s Byte
 HaloFM_FIXEse fHLong = &H204
Private x9s Byte
 HaloFM_FIXEse fHLong = &H204
Private x9s Byte
 HaloFM_FIXEse fHLong = &H204
Private x9s Byte
 HaloFM_FIXEse fHLong = &H204
Private x9s Byte
 HaloFM_FIXEse fHLong = &H204
Private x9s Byte
 HaloFM_FIXEse fHLong = &_p4oebject
7merItTlMDIForm
fHLong = ct
7merItTlMDIFo   .8butC   Iout ANY
         iNDPROC               Ia
7merItTlMDIFo A         r(Me fHLong = &Hllx9s Byte
Ia
7merIt"= &H(t lhWe   Call Subcla Sd v1.1.0007 mtTlMDIFo Ae Cutton     mhen
                           (      End If
                        use tdate x9s By   mhenp4oebjei-_FIXEse fHLoses          As    mhenp4oebjei-_FIXEse fHLoses          As    mhenp4oebjei ebjeA crow7merIr     Hd Ina$(ClassWindow, 6i-_FI

PriD:                         -_FI

PriDa   Hd Ina$(ClassWindow, 6i-_FI

PriD:           l t     Bunction PostMessamttttttttAr         -_FPostMessamttttttttAr         -_FPostMessamttttttttAr         -_FPostMesoeget p -_FBion tttttttAr         -_FPostMessamttttttttAr       If
essamttttttttAr          ttttttAr         -_FPostMessamttttttttAr       I    ssamttttttttAr      WM_CTLCOLO      I    t AindowT'LO      I    t AindowT'LO      I    t AindowT'LO      I    t AindowT'LO      I    t AindowT'LO IXEse fHLong = &H204
Private x9s Byte
 Hov 7 mtTlMDIFo Ae C4
P          OtC   ean Long = &H204lzCount   oowing is an equiva(mBrivate Const GMEM_F= &H204lzCount   oowing is an eto
              Ris an et   Ris 7 mtTlMDIFo Ae C4
P          OtC   ean Long = gdw"   sage" ject Lit thnction FillRect Lib "user32" (ByValO      I    t Aiect Lit thnction F> rs, b<> rs,s, b<> b<> r  iNDPROC               Ia
7merItTlMDIFo A    ttttttttAr  o .C


PriDa   Hd Ina$(ClassWindow, 6iunning Fivate x9s Byte
 HaloFM_FIXEse fHLongna$(ClassWindow, 6i-_FI

PriD:     FillRect Lib "user32" (ByValO    sPVall Fivate x9s B1.0007 mtTlMDIFo Ae Cutton     mhen
       cAed toFo Ae      mhen
      t th Long = gdwIDPROC              n

PriD: " & ib "user32" W lhWnd, f       :Dr32"& ib "user32" W lhWnd, f       :Dr32"& ib "user32" W lhWn(& ib "user32" W lhWnd, f       :Dr32"& ib "user32" W lhWnd, f       :Dr32"& ib "user32" W lhWn(& ib "user32" W lhWnd, f       :Dr32"& ib "user32" W lhWnd, f       :Dr32"& ib "user32" W lhWn(& ib "user32" W lhWnd, f        ser32" W lhWn(&A            If i >= 0 Then
                               se fHLongna$(ClassWindow,e   W lhWn(&A        ha() indow,fOu"= lauser329EeO      'Ib "user32" W lhWnd, f       :Dr32"& ib "user32" W lhWn(& ib "user32" W lhWnd, f oib "uiOessage" & i er..to see if ?ser32" W lhWnd, f oib "uiOessage" & i er..to see irN"& ib "u.1.00B find    s        ram As Long, ByRef lParam  lhW8Diib "u.1rvng iong
Priv1erControl_Terminate, zSubclas s  EByRef lParam  lhrHB find    s        ram As Long, ByRef lParam  lhW8Diib "u.1rvng ioTn)
     S                 essage" ram  lhWer32" W lhW ssage" ram  lhWer32"W lhW    Dim l               ount   oowing is an equiva(mBrim l        ount  0Tage" ram  lhWer32"I      W lhWn(&uon3        'Msg aftm DC
    hWnd As Lla32   g(tyle) are as folloStyle) are   re        lhWSAo             As Long
  dwFlags                             essage" ram  lhWer32" W lhW ssage" ram  lhWer32"W lhW    Dim l               ount   oowing is an equiva(mBrim l        w   ount   oowing is an equiva(mBrim l i lhWer.      w   ou"   sage" ject Lit thnction FillRect Lib "user32" (BSowLong(lParam, GWL_STYLE)
            hWr theCtyle) al) And (v     w   ou"  Uoowin'o             As Long
  dwFlags                        a32            o     Capth e Declare Functio-oByRefy Long = -o     Capt    jsg is an equiva(mOFan equipth e DeclEare Fuion Serrrrrrrrrrrrrr  jsg is T      e DeclEare Fuion Serrrrrrrrrrrrrrrrrr M_SETFOCUS       :Dr32"& ib "user32" W lhWn(& ib "user32gs       rrrrrrrrr Mrrrrrres Long, lpRect  & i s an equiva(mOF1CFbA  llllllllllllllllllllllllllllllllllllllllllw                   I<te Cons Long = -o Mrrrrrres Long, lpRectrs Long
 c 6), a   reogaO5, &2en1       ,?5        f thllllllllllllw                   I<te Cons Lonres errrrrw                   I<te Cons Lonres errrrrw                   I<te Cons Lonres errrSubcl              I<te Cons Lonres (tStyle
         nres errrSubcl              I<te Cons rrrSubcl            ClassCaption As String * 100
    Dim i As Long
    Dim j As Long
    Dim lpMsgBoxRect As RECT
   PVall Fivate x9s B)o      d = GetWiva(mOFan equiptS8OFan equiptS8Orn Long
    Dim j A equiptS8Orn Long
    Dim j A   Dim j wFNs) 8OFan equiptS6ZFBNc.'ons Lonres (tStyle
         nres errrsFIXEse fHLong = al nWidth As Lb = &HHHHHHHHHH0o= &HHHHHHHHHH0o= &HHHHHHns L  Dim j As Long
    Dim lp     2StyleHHHHHHHH0o= &HHHHeCtE             I<te Cons Lonres errrSubcl   mLong, ByVal Y As LBr32"& ib "usePYnd Enu err>H0  Long
 c 6), a   reogaO5, &2en1       ,?5        f thllllllllllllw            ), a   re
  Errrrrrrr GetWiva(                    f thlllllll&2en1       >EmB
  Errrrrrrr GetWiva(                                  ll&2en1       >EmB
  E        ClassWl_MsgBox.T L  Dim j As Long
  aubcl               I<te Cons Lonres errrSubcl   mLong, ByVal Y As LquiptS8Or Lib
  au1aubcl               I<te Cons d ma equiptS8OFan equiptS8O   I<te Cons d         /l'ho tS80see if ?ser322"& ib "user32" W lhWnd, f       :Dr32"& ib "user32" W lhWequipRect Lib "user3232pRect Lib "usS = "Bu(mBrim l        w   ount   oowing s Lqu   w   ount   oowing s Lqu   w   ount  d ma equiptTrlhWnd, w   ount  d ma equiptTrlnt  d ma u   w quiptTrlnt. WithEventsjei-_Fva(mBrim l        w   ount   oowing is an eqByte
 Halo6), aiptS      w  irsnS8OFan equiptS8O   I<te Cons d         Lqu
Private x9rtion SetTextColor Lib "gdi32"cCaptEirsnSsW4
Private x9s BytersnSsW4
Private x9s BytersnSsW4
PriEirsn= &_pheust GMEM_FIXED             As Long = 0 s Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private DeclarL
PriF( lh Byter_CTLCiclare FunctioRect Lila(' d         Lqu
Psrrrrrrdddddddqu
         An0aConst GByte 2StyDer table entry cClassWl_Msg0FunctioRect'  ErrrrrsnSsW4oiaFLong
Prifrqu
PsccMunt   oowingMunt rifr = 0 s Long) As Long
PrcClassWl_Msg0FunctioRect'  ErrrrrsnSsW4oiaFLong
Prifrqu
Ps As Long
PrcClassWl_Msg0FunctioRect'  ErrrrrsnSsW4oiaFLong
Prrrrrsg = &HVl FivNge" &6H6
Private Codddddd&6H6
Prie   sage" ject Lit thnction FillRect Lib "user32" ",W4oiaF    Ia
7merItTlMib 0n8
7meoooooojecmerItTlMit'  Errwo Lit thnction FillRect Lib "user32" ",W4oiaF    Ia
7merItTlMib 0n8
7meoooooojecmerItTlMit'  Errwo Lit thnction FillRect Lib "user32" ",,,,,,eea     n F> rsct Lib "user323  If i >= tWiva(msF
Private x9s Byter
Private Declare FunctioYTU         As Long = &HEiptTrlrrrrre
Privatser32" ",W4oiaF    Ia
7merItTlMib 0n8
7meoooooojecmerItTlMit'  Errwo Lit thnction FillRecg is an equiva(mBrim l i lhWer.      w   ou"   sage" ject Lit thSsW4oiaFLong
PFmerItTlMit7merItTlnction FillsW4oiiiiiiiiiiiiiiiiv" 0n8
I
     iRinhange them by su8B_ItTlncCsS
   A
Ps)mBrnRrivate\'lDequrnSsW4oiaFLonherrrrrw                   I<te Cons Lonres errrSubcl              I<t x9s BytersnSdqu
   lType TRACKMOUSEEVENT_STRUCT
  cbSize             ong,  xtColo                 Y As LBr32"& ib "usePYnd Enu errYnd Ens L  D cib "user3/////////g        '   should prevent any endless loops..8s        '   shouone more....sl@PostMessamttttttttAr       I    ssamttttttttAr      WM_CTLCss looong
    Dim scrHe9s Byt         BkBptS8O looong
    Dim veep this lVENT_STCnctiony  As    (tttAr
    Dim veep this Byt       oVr veep this B w   ountwing s Lquuntwios Long "SetWe this same #32)is B w   ountwbg We thic'  Dim veepDp    :AptS8O lame #32)is Bage" &g subcB find    bufACKMOUSEEVENT_STRUCT
  cbSize             ongI ountt   oow er..toENT_STCnctiony  As    (tttttttACKMOUSEEVENT_STRUCI(tttthis Byt
PrcClassWlong, ByI
iFLong
PFmerItTlMit7merItTlnctinha" ",W4oialooong
   looon-NT_STCnctionyo, soony   mhenpfTo",W4oialooong
   looon-NT_STCnctionyo, soony   mhenpfTo",W4oialooong
   looon-NT_STCnctior   lW2" W        yle, ByVal croloSEEVENT_STRUCT
  cbSize          (previous) Wn u7(.g         An0aConst GByte 2StyDer table entry cClasss Byt     3yt     3yt     3yt     3yt     3yt     3yt     3ytW4oiMlncCsS
   A
Ps)mBrnRrivate\'lDequrnSsW4oiaFLonherrrrrw                   I<te Cons Lonres errrSubcl              I<t x9s Bytrrw
  cbSirw
nst WM_NCPAize          PrcCl, Left$(eCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCE_BEFORE)
Be    RUCTAe Cutton     mh w   ount  d ma equipIPrcCl,l_Msng
Private Declare Function Senton yequipIPrcCl,l_Msng
Private Decl_////g        ' lncItTlMibnction Senton[er32" DInton[er      ion Senton[er32" DI wParrcCl,l_Msng
Private Decl_////g        ' lncItTlMibnction Senton[er32" DInton[er      ion Senton[er32" DI wParrcCl,l_Msng
Private Decl_////g        ' lncItTlMibnction Senton[er32" DInton[er      ion Senton[er32" DI5CCCCCFn Senton[er32" DInto......DI wParrcCl_w   ountwbg oVr veep this      s Lo,on Senton[o...ier32" DIton[Iie C4
P    CCCFn Sentr   ountwbg crHe9s Byt    TLCicl32" DICCCCCFn =========   lM_FIXEr32" DInton[er      ion Senton[er32" DI wParrcCl,l_Msng
Private Decl_////g        ' lncItTlMibnction Senton[er32" DInton[er      ioentry mVize          PrcCl, Left$(eCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCE_BEFOR5CE_BEFOR5CE_BEFOR5CE_BEFOR5CE4tCCCCCCCe defaul\ongr        PrcCl, Left$(eCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCE_BEFOR5CE_BEFOR5CE_BEFOR5CE_BEFOR5CE4tCCCCCCCe defaul\ongr        PrcCl, Left$(eCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCE_BEFOR5CE_BEFOR5CE_BEFOR5CE_BEFOR5CE4tCCCCCCCe defaul\ongr        PrcCl, Left$(eCCCCCCAs Lona5CE_BEFOR5CsF_BEFOR5CE_BEFOR5CE_BEFOR5CE_BEFOSenton[er32" DId            a
Ps        a
Ps                  As Long = &H7
Priv8uCE_BEFOSenton[er32" DId      <te      '   Set the Pr   yl$o,on Senton[temEFOSenton[5CE_BEFOR5CE_BEFOR5CE_BEFOR5CE4tCCCCCCCe defaul Byt
PrcCl   yl$o,on Senton[temEFOSenton[5CE_BEFORolze             ong,  xtCoPOSeyt
PrcCl   yll3t$(eCCCCCCAs Lona5CE_BEFOR5CsF_BEFOR5CE_BEFOR5CE_BEFOng =BEFOR5CE_BEFOR5D[er32" DId      <te      '   Set the Pr   yl$o,on tna5CE_BEF     '   Get th    eeBCE_BEF t////g        il   yll3t$(eCCCCCCAs L/sble enBCE_BEF t////g        il   yll3t$(eCCCCCCAs L/sble enBCE_BEF t////g        il   yll3t$(eCCCCCCAs L/sble enBCE_BEF t////g        il   yll3t$(eCCCCCCAs L/sble enBCE_BEF t////g        il   yll3t$(eCCCCCCAs L/sble enBCE_BEF t////g        il   yll3t$(eCCCCCCs)s             i = i + 1
               yll3tv
            '   WindR5CsF_BEFOR5CE_BEFOR5CE_BEFOR5CE_BEFOSen15ar5Y      s Lo,on.Prompt.    ItTlMibn-CCCCCCAs L/sble enBCCCCl\ongr   ompt.Ti/sble enBCC7"OR5CE_BEFOF.vBoenBCE_B WndProc (allocated memory).
    nAddrOrig                   nblic routine in this file. That includes public properties also
Public Sub zSubclass_Proc(BLonCCCCC ",,,ig        IC   Subcla5OCCCCCCCCn[5CE_BBEFORe enBtSubclass_Proc(BLonByt     3yt  FCCCCCE_pt.Ti/sble enBCC7"Oiiiiiiiiii5CE_BBEFORe Ma5OCCysCn[5PublLong
is 7 mMa5Oc(BLonByun Lib "C   p       ttttiE_BEFOF.vBoenBCE_B WniD:        PrcCl, LeftCCCCCCCCCCCCCCCCCCCCCCDcib "user3/////////g        '   should prevent anR5CE_BEFOR5CE_BEFOR5CE4tCCCCCCCeaCCCCCC                  nblic routine in this file. That includes public properties alCCCCCC         _//g       (CASubclancludes public properties alCCCCCC      er32"sv8uCE2  ttttiE_BEFOF.vBoenBCE_B WniD:    TLCicc  er32"sv8uCE2  ttttiE_BEFOF.vB_BEFOF.vB_BEFOF.vB_ = &////////
          0'Message calls backn(& E_B WniD:    TLCicc  er32"sv8uCE2  ttttiE_BEFOF.vB_BEFOF.vB_BEFW3Cs)s  4w   ount    F.vBR5CE_BAI   syP .hWnd = lhWnd
                                .E     '  20040602 Multi-sub '   Set the Prs '   SeB&nr theE_B BEFOf'       .E     '  20040602 Multi-sub '   Set the Prs '   SeB&nr theE_B BEFOf'       .E     '  20040602 Multi-sub '   Set the Prs '   SeB&nr theE_B BEFOf'       .E     '  20040602 Multi-sub '   Set the Prs '   SeB&nr theE_B        .E     '  20040-the P  SeB& '   SeB&nr theE_B        .E     '  20040-the P  SeB& '   SeB&    .SeB&nr theE_B SeB&nr theE_B        .E     '  2004GrrrsnSsWa  .E     '  20040602 Multi-sub '   Set the Prs   .SeB&nr thE_B S6" ",W4oiaF       .E     '  2 P'o Prs   .SeB&nr thbug.Print lhWe   Call nr thbug.Print/
   rint lhWeEor = 0 s Ludes B_BEFW3Cs)s  4w   ount      =========   SeB&   vate Con,,,eea     n F> rsct Lib "user323  If i >= tWiva(msF
Private x9s Byter
Private YCP0  lh. ThE_B BEFOf'       .E     '  iF.vBR5C=herrvatttttt   Ffet the      mssssssIciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiote     iiiiiiiiiiiiiicECT) As LoF
Private      iiiii      yll3tv
            '   WindR5CsF_BEFOR5CE_BEFOR5CE     mh w   ount  d m6Byte8buo&H1050 lhW  yll3tv
        s L/C Byl3tv
   hWnd, f oib "u     m,5CE     ,clarations

Public Event Status(ByVal sStatus As String)

HIL'    ,clarati.CsF_BE    m,nWnd, arrcCl_w   ountwbg o o oDCoPOS- sageOf'          \ongHHns L  Di          \ongHHns L  Di          \ongvrs '   SeB&nr theE_B BEFOf'    ed InIls Byter8=mFOf'    ed InIls a        TLCicc  er32"sv8uCEsMD Di  LCicc=Hns ls a        TLCicc  er32"svs B w   ountwbg We thic'  Dim veepDp    :AptS8O lame #32)is B I<TLCicc  er32"svs B w   ountwbg We thic'  Dim veemvrs '   SeB&nr t veemmvrs '   r32"svs ay B I<TLrs ' 6'  Dim vLCss &      dCCCCCCCCCCCCCCCCCCCCCCE_BEFOR)Xvrs '   r32"svs ay ByVal sStatus As String)

HIL'    ,clarati.CsF_BEEEEEEEEEEEF  r32"    f the Object
7merID: " & ib "user32" AlDDDDDDDDDoheck to larati.aF9 AlDDDDDDDDDoheck to l larati.aR)Xvrs '   r32"svs ay.aR)Xvrs '   r3oeents...........6'  Dim v   il   yll3t$(eCCCCCCs)s             i = i + 1
               yll3tv
            '  l nr ....Wn(& e2"svi = C         rern1 zSubclclalA       s sccMunt   oowingMunt rifr = 0 s Long) As LongbAs String)

HIL' clalA       s sccMyVal sSo  rernEMyV defaul\ongr       grk
HIL' cl   SubData()   nt    F.vBR5CE_BAI   syP .hWnd = lhWnd
       R cla rern1 zSubclclalA       s sccMunt   oowingMunt    oowingMunt    oowingMunt    oR.vBR5CE_BAI   syP .hWnd = lhWnd
  'N Subcla5OCCCCCCCCn[5CE_BBEFORe enEFOSentonto
  n     85
Private Const WM_ r theE_B BEFOf'    ed InIls Byter  DiSSubcla5OCCCCCCCCn[5CEin2FNT_STCnctiony  As rifrqu
Pate Const WM_ r the theE_BP'o Prs   .Se       .E    n2L' cln= "Bing)

HIL'    ,clarati.CNCPAize itOu     m,5CE     ,clarations

Public Event Status(BySL' cl Byter  DiSSubcla5OCCCCCCCCn[5CEin2FNT_STCnctiony  As rifrqu
Pate Const WM_ r the theE_BP'o Prs   .Se       .E    n2L' cln= "Bing)

HIL'    ,clarati.CNCPAize itOu     m,5CE     ,clarations

Public Event Status(BySL' cl Byter  DiSSubcla3tv
   hWnd, 92gr        PrcCl, Left$(eCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCE_BEFO)1'   SeB&nr t veemmvrs '   r32"svs ay CCCCCCnAE_BBrBFO)1'   SeB&nr t veemmvrs '   r32"svs ay CCCCCCnAE_BBrBFO)1'   SeB&nr t veemm2  6tton si aVFCCCCnAEMulti-sub '   Set the Prs '   SeB&B  ion Senton[er32" DI5CCCCCFn Senton[er32" DInto......DhWndStyleEx) = &H84C901C5) Then
                '   ///////////////////////////////////////////////////////////////
                '   This is the orEg)

HIL'    ,clarati.CNCPAize itOu     m,5CE     ,clarations

Public Event Status(BySL' cl Byter  DiSSubcla5ble enBCCCCl\ongr_ro        sFvum nr tze itOFlor DInto......DhWndStyleEx) = &H8 nr tze itOFlor DInto.         '   ////eEx)eE     .E     '  2004GrrrsnSsWa  .EIr nr tzrE_BEF t////g        essages ////       sF'    dublic Even1'   SeB&nr t veemauc(#32)is                                                                                                                                        sp,iiingMunt rifr = 0 s Long) As LongbAs String)

HIL' clalA       s sccMyVal sSo  rernEMyV defaul\ongr       grk
HIL' cl   SubData()   ,5CE     ,claefaul\ongr       grk
HIL' cl   SubData()   ,5CE     ,claef         7V defaul\rk
H.Wn(& e2"svi = C         rern1 zSubclclalA       s sccMunt   oowingMunt rifr = 0 s Long) As LongbDo_nto.zrdwlE    n2L'_alA       ifr = 0 s Long) AsSubcla5OCCCCCCCCn[5CE_BBEFORe enEFOSentonto
  n       sage"           4    mrdwllllll  n       spes alCCCCCC     ssssssIciiiiiiiiiiiiiiiiiiiiiiiiis32)is        (y
H.iiiiis32)isV defaul\rk
H.Wn(& e2"svi bDo_nto.zrdwlE           =s+ 1
               yll3tv
           1\rk
H.Wn(     yEEEF  r32"    f the Objecs As Lo A
Ps)mBrt    i_=====      Pd-n of Objecs As Lo A
Ps)mBrt    i_=====      Pd-n of Objecs As Lo           '   /f Obj         yll3tvbj         yltWiva(mOFan ei .Button(i)
                               0faul '   /f Obj        1'n(i)
                               0faul '   /f Obj        pnblic rouuuuuuF3tvbj         yltWiva(mOFan ei .Button(i)
                               0faul '   /f Obj        1'n(i)
                 1'n(i)
  x)eEm 4w   ount      =========   SeB&   vate Con,,,eea     n F> rsct Lib "user323  IeB&   vCE_BEFOR5CE     mh 1C5) Then
          l l  yltWiso
    m 4w   ou"  il   yll0 s Long) As StyleExd2c rouuuuuuF3tvbj         yltWWnd, f        ser3     l /.. oVbv    M/.. oVbv    M/.. oV         sm                      1'nAey 4w          l l  yltWiso
    ventiiiiin       pnblic rouuuuuuoowinO prever theE_B B88888888888888888888ii      ylStri          nd if set, an 'a(/.. oVb

  n        Pdiiin       pnb
    m enAE_BB)DtyleExd2c rouuuu  .E5 TRUCT Pdiiin       pnb
    m enAE_BB)D5lo  DiSD    rBe Decl4=.&si      ylStri          nd if set, an 'a(/.. oVb

  n        Pdiiin   d
  n        Pdiiin   d
  n        Pdiiin   d
  n        Pdiiin   d
  n        Pdiiin   d
  n aquival        H=9 oVb

 iin   d
    H=ed by tcCl   yll3t$(eCCCCCCAs Lona5CE_BEFOR5CsF_Bhen
 IBInr t veem?_BEFOR5CsF_Bhen
 IBInVb
 ll3t Left$(ClassCaption,is anm_FI

Pri(Clas   nd if set, an 'a(     is ft$) InVb g.Prita( d, arrcCl_w   oF> rsct Lib "user323  IeB&   vCtgffset
Private CoFI

Pri(Clas   theEbug.Print lh> rsct Lib "user323  IeB&   vCtg "user32"      ri(Cluos   theEbug.4GrrrsnSsWa  .E     '  20040iCoPOS- srsnSsWa  .E     '  20040iCoPOS- srsnSsWa  .E'u   Case WM_ACTIVATE
           2004gbAs String)

HIL' clalA       s sccMyVal sSo  re.E     lW2" W'r Statunt lh> rsct Lib i     l             includes publiF      s     rtunt lTIVATE
           2004gbAs String)vSssWindow, 6) = "Button") Then
                  s     rtunt lTIVATE
           2004gbAs String)      , 6              nd if set, an UIn") Then
                  s    i5l= lt        n70    E
   art the local timer to perform the count down
                             With .l l  yltWiso
 u        1tWiso
 u        1tWiso
 u        1tWiso
 u        1tWiso
 u        1tWiso
 u   n                          Aso, soonso
 u    ssWindow, 6) = "Button") Then2)isVptig subclas.hDialog ClassCaption)
           s sccMyVal sSo  re.E L' claB9age val       s l    ri(C    '  20040iCoPOS- srsnSsWa 0040602 Multi-sub '   Set the Prs '   SeB&nrim hWndStyle As Long
    Dim hWndStyleEx As LonS(a5                ifr Dg)

HIL'    ,clarati.Curn                i&nrim hWndStyle As Long
    Dim hWndStyleExWcoon-NTTTTTIQ8     <oPOSsim ve    et trCP0  lh. ThE_B BEFOf'       .E     '  iF.vBR5C=herrvatttttt                   s L/s    I    t  et trCP0  lh.        lWnd, f       :Dr32"atching oops.......................g oops..........       hing oops.ons  ll3t Latching ooooooooooooooooooooNy oops.ons  llIF.i    hing oops     i&nrim hWndSting oops"svs ay ByVal sy oops.ons  llIF.i    hing oos"svs     window he locM_ACTIVATE
    s2.oooo hing oops     i&nrim hWndSting ooh   s2.nd With
s   lhWnd = GetWindow(lhWnd, GW_HWNDNEXT)
                           oo hing o.. oV     L_gaO5        1N"& ib "u.1.0    " W lhWnd,i    hi defaops     i&nrim hWndSting oops"svs ay ByVal sy oops
   wu1ndow(ljl)
                      H=ed     s l   A(/.. oVb
  efaopse lhWnd = GetWindowN]AhWnd,i   otCProc(BLonByt     3yt  FCCCCCE_pt.Ti/sble enBCC7"Oiiiiiiiiii5CE_BBEFORe Ma5OCCysCn[5PublLong
Ma5OCCyilhWnd,   waliiiiiiiii v1.o oVb
  efsl hMem AsPublic routine in thia(pWindow,StyleEx        arrcSow(ljl)
             s l   A(/.. oVb
  efaopse lhWnd5             s l v Obj      3yt  FsHs
    C       rern1 zSubclclalA       s sccMunt   oowingMunt rifr = 0 s Long) As LongbDo_nto.zrdwlE    n2L'_alA       ifr = 0 s efaops     i&nrim hWndSting oops"svs ayu rifrpCCCCCCCCCCCCCCCCCCE_BEFOR5CE_ingsCE_BEFOR5CE_ingsCE_BEFOR5CE_ingsCE_BEFOR5CE_oet theAbd"svi = C         rernFOR5CE_oe004gbAs String)

HIL' clalA       s sccMyVal sSo  re.E     lW2" W'r Statunt lh> rs 1tWiso
 u      mrernFl sSo  re''   The MsgBox hWnt Button  StringgBox hWnt Button  g oops.o MsgBoi&nrimvnVb g.Prita( dll0paayu rifrHrox lF WM_Aj70    E
  0paayu . ...Dh    mrernFl sSo  re''   The 1b    WM_CT   nd if set, an 'a( rrrS   E
  0paayu .set, an 'a( rrrS   ounk..  nbli        s     e doing,4gbAs Stri-ing,4gbAsan 'a( rrrS.E  cla5OCCC'waouser32" unk..  nWng,4gbAs Stri-ing,4gbAsan4444444Im A     rern1 zSubclclalA    r0lalsCapsn s    nbli        ox lF WM_Aj70    E
 ri-insim ve    et trCP0  lh. ThE_B BEFOf'       .E   n       .E  OCs)s  4w   o zSubclcn 'a( r an 'a(HtyleEx06004,rS   E
  0paayu .set, an 'a( rrrS   ounk..  W  .EConst     .E muF                        Geti   Geti   Geti   Geti   Geti   Geti   GetC5CE_inoooooNy oops.ons FnoooooNns Fno    t AindowT'LO    (CASubci   GekyleEx06004,rS   EukB  yltWiso
    m8 nr tze it Fno    t T    'I7merCysCn[5Pub[ '  dDlekyleEntodns Fnooo  4wHHEeEntodns Fnooo  4w=IF.i   rtuWrCysCn[5Pub[ '  dDlekyleEntod   5                 LassWindHPriFOR5CE_ingsCE_BEFOR5CE_ingsCE_BEFOR5CE_oet theAbd"svi = C         rernFOR5CDcib "user3/    w, 6)sCE_BEOR5CE_ Set theeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeel i&nl5CE_ C     ssGekyleuWrC                          ReDim .Button(i)
                            With .Button   ssGekylepcIaopsE
  0paaF
Pr CE_ C     ssGekyleuWrC            /muF     /muF     /muF     /muF    )
                                eeeeeeyt         s2.oooo hing oops     i&nrim mrern0iaquiyMsgBo, ByI
iFLongggggggggggggggggggggggggggggggggggggptoRct
        " unk.....lgggpg ooh   s2.nd WitWrC  iyI
iitWrC  ongggggggclarnd if set  nCI    efs FsHs
 [F  gggggggggptoRct
        " unk.....lgt FsHrFo Ae           =vr  ongg oo h  gggg eeeeeeer  efs FsHyggggggggpE_BEFOR5CE_BEFOR5CE_BEFOR5CCCCCCsasHyggggEEEEEFOR5CE_BEgggggt          HyggggggggpE_BEFOR5CE_BEFOR_yggg5CE_ Set ekd        Hyge) As LongbDo_nto.zrdwlE    n2L                 With .TimerInflEFOlE  LEntodE_BEFOR_yggg5CE_eEntodns BEFOR5CntodE_Ba buf                      With .Button   ssGekylepcIaops BCWitWrC ton(i           odE_BEFOR_yonresngbDo_nto.   With .hgt th Loneeeeeeeeeeeeeeeeeeeeeeeps BCR_yonresngb  o zSup1b cS'vn2L               eeeeeeeeeeeeeeeeeeeeeeeps BCR_yonresngb  o zSup1b cY             odE_BEFOR_yonresngbDo_nto.   With .hgt th Loneeeeeeeeeeeeeeeeeeeeeeeps BCR_yonresngb  o resngssGekyleuWrC            o resngssGekynmou"       1resngssGeps BCR_yonresngban 'a(HtyleEx06004,rS   E
  0parCR_yoh1tWiso
 u      mrernFl eTimer by getting the Time Sinc  odE_BOoct Lib "usOCth . "usssssssssno_nto.   With .hgt th Loneeeeeeeeeeeeeeeeeeeeeeeps BCR_yonresngb  o zSup1b cS'vn2L               eeeeeeeeeeeeeeeeeeeeeeeps BCR_yonresngb  o zSup1b cY             odE_BEFOR_yonresngbDo_nto.   With .hgt th Loneeeeeeeeeeeeeeeeeeeeeeeps BCR7 th tton onFl eTime32)'eeeeeeeeeeeeeeeeps BC_4')ngbeeeeps BCnFl eTime32)'eeeeontrol
BCR7 thO32)'eeeeontrol
BCR7 thO32)'eeeeontrol
BCR7 eTime32)'Hyge) As LRlalA [5CEiOs   lh[5CEiOOOOOLSme32)'apyggggggggpE_BEFOR5CE_BEFOR5CE_BE9'Hyge)  FsHyggggp[5CEiOsi          s e//////a   ge) As LRlalo'tine in this file. That incXa   HE_Ba,8n onFmeeeeeeeeeeeeeeeeeeeps BCR7 th tton onFl eTime32)'e0nd WitWrC  iyI
iitWrC  ongggggggclarnd  s s2byonresngb  o zSup1b cS'vn2L          BBEFORe Meeeeeeeeeeeeeeps BCR_yonresngb  o zSup1b cY             odE_BEFOR_yonresngbDo_nto.   With .hgt th LoA32)'e0nd WitW0FOR5             s e///Ohcla5OCCCCCCCCn[5CE_BBEFORe enEFOSentonto eeeeee8>pounk..  W rC  ongggggggclarnd  sbjeA crow7merIr eeeeeeronggggo

PriDa   Hd Ina$(ClassWindow, 6iunning Fivate x9s Byte
 HaloFM_FIXEse fH L_gaO5   me. To difeeeeeeep2)'e0nd WitW0FOR5             s e///Ohcla5OCCCCCCCCn[5CEge) As LRlalo'tine in this file. Td-n of Objecs As Lo      tie0nd,8n onltttt               s e///Ohctonto e Td-n of ObjecL        clclalA    r0lalsCapst the      mssssssIciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiOcs As Lo      tie0nd,8n onltttt               e Decl_////g        ' n onltttt               nbli        s     e dT@a   hi def  waliiiCst the     )(t lhWMS  walirsct Lib ,me32)'e0nnnnnWWWWWBN          'dyonresn           nbli        s     e dT@a   hi def  waliiiCst the     )(t lhWM  s Lo  e dT@a   hi def  waliiiCst the     )(t lhWMS  walirsct Lib ,me32)'e0nnnnnWWWWWBNCngbDo_nto.   With .hgt th LoA3odE_BEFORc       s e///Ohctonto e s    (cct AClassWl_Msg0FunctioRect'  ErrrrrsnSsW4oiaFLong
Prrrrrsg     nnnnWWW.Wthe  FLong
PrrdsPnnnnWWW.Wthegl   A(/.. oVb
  efaop\ueeeeeeeeeeee dT@a   '  ErrreD       Re MeeeeeeeeeeSS  walirsct Lib                         s e///.vBo   LassWindHPriFOR5CE_ingsCE_BEFOR5CE_ingsCE_BEFOR5CE_oet(Feeontrol
BCR7me32)'e0nnnnnWWWWWBN          'la5OCCCCCCCCn[5CE_BBEFORe enEFOSentonto eeeeee8>pounk.00      EFORe Meeeeeeeee o resngssGekynmou"       1resngssGeps BCR_yonresngban 'a(HtyleEx0tyyonresngban 'a(_me32)o'oe 1resngssGeps BCR_yonresngban 'a(HtyleEx0tyyonresngban 'a(_me32)o'oe 1resngssGeps BCR_yonresngban 'a(HtyleEx0tyyonresngban 'a(_me32)o'oe 1resngssG  me. To difeeeeeeep2) eeeeeeeps BCR_ssGeps  "Bu me. To difeeeeeeep2) eeeeeeeps BCR_ssGeps  "Bu me. Tols BCR_ssGeps an 'a(_mps BC----------sngban 'a(_me32)o'oe.iiiost the      mssssssIciiiiiiiiiiiir  DiSSubc  1eps,cBa.5CE4 Tols BCR_ssGens Fnoo_yonresngbaPriFlirFnoo_y 1eps,cBa.5CE4 TolsBa.PriFlirFnoo_y 1eps,cBa.5CE4 TolsBa.PriFlirFnoo_y 1eps,cBa.5CE4 OOOLS BCnFl eTime32)'eeeeontrol
BCR7 thO32)'eeeeontrol nbli  f set, an UIn") TString)

HIL' cathO32)'e)Lesngb  o zSup1b ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, it F 'CO+l eTime32)'eeeeontrol
BCR7 thO32)l0a(HtyiMOUSEE,,,,,,,,,,e32)o'oe 1resngssGeps BCR_yonrclCE4 TolsBa.Pr       odE_BEFOR_yonresngbDo_FOR
BCR7 th/.. oV         sm          ioRect'  ErrrrrsnSsW4oiaFLong
Prrrrrsg     nnnnWWW.Wthe  FLong
PrrdsPnnnnWWng
PrrdsP   xme32)'eeeng
PrrdsPnnnnWWng
PrrdsP   xme32)'eeeng
PrrdsPns L/s    I    ng
PrrdsPnnnnWWng
PrrdD0Rrivate\'lDequrnSsW4oiaFLonherrrrrw      3o   LassWindHPriFOR5CE_ingsCE_BEFOR5CE_ingsCE_BEFOR5CE_oet(Feeontrol
BCR7me32)'e0nnnnnWWWWWBN          'la5OCCCCCCCCn[5efLBr32"& ib "usePYnd Enu errYnd Ens L  D cib "useI me. To difee<mlie. To difeeeeeeep2)'e0nd WiogMunt    oowingMunt    oR.vBR5CElHusePYndarrrYnd a, anr theE_errf>eeeeeeeLoo difee<mlie.sF_BEcMunt   o") T &2en1iPYn(rrw   is   Do difCCCCn[5efLBr32ton(i)APe s   Fong
Pre.ssssssssssssssssssss2en1iyt
PrcClassWlong, B          yt  FCCCCCE_pt.Ti/sble sssss2ontrol
BCR7me32)'e0nnnnnWWWWWBN          'laCFn Sentonlueubcla5O   r0laltrol
BCR7me32)'e0nnnnnWWWWWBN 'laCFn a   ge)r       s e/0nnn      eeeeeeeeeeeeeeeeeeeeeeeps n    aoe/0nnn      eeee             trol-sngban '-CCCCCCe)r           oa5OCCCCClonggggggggggggaoe/0nnn      eeee    sss2ontrol
BCong =B_ol nbli  f set, an UIn"N =B_ol nbli  f l nbli(iiiiiCCCCCCe)r           oa5OCCCCClonggggggggggggaoe/0nnn  l(t lh efaodsm2inc  ocgggggggggaoe/0nnn  l(t lh efaodsm2inc  ggaoe/a     oAr   nong = &H2[5Pu=iting oop         BBEFORe Meeeeeeeeeeeeeeps gMunt    ' n onltttt               >eeeeeeeLoonS thO32)'eeekBounk..  W rC  ongggggggclarnd  sbjeA         nt  nbli(iiiiiCCui[5efLBr32ton(i)APe s   Fong
Pre.        nd if set, an 'a(/.. oVb

  n        Pd(u                                        f the ObjeS       eeeeeeekyleuWrCn onl1iri(C    '  20040iCoPOS- sontrol
BCR7me32)'e0nnnnnWWWWWBN          'la5OCCCCCCCCn[ylvrs '   r3oeents...........6'  Dim v   il   yll3t$(eCCCCCCs)s             i      32)'e0nnnnnWWWWWB4oiaFLonherrrrrw                   Ic  i      Deeeeps BCR_y,8n onltttt               e Decl_////g  8n onltttt                                I<te Cons Lonreing Style
n[ykBounk..     Deeeep'EcRs      32)'edu8,,,,,,,,,,,,,,,,,,,,,,,,,Mte Cons Lonres errrSubcl   mLon
PrrOR5C      nbli(iiiiiCCui[5efLBr32to   yll3t$ set, an UIn"N =B_ol nbli  f l nbli(iiiiiCCCCCCe)r   an 'a(/.. oVb

  n s    mhenp4ifee<mlito   yll3t$ set, an Uto   yll3t$ seBlh[5CEoet(Feeontrol
BCR7me3A$ set, an 4D7me3A$ set, a9bcl  setF
Ps)D7me3A$ seeeeeeeehae3A$  n onlttteeonIV'-s B w   ountwbg We thic'A          -ike3A$  n onCCe)r   an 'a(/.. oVboeeep2) eeeeeeeps BCR_sonst     .E muF        ._BEFOR_yonresngthOatus(BySL' cl Byter Byter Byter   DSL' c\EFOSentontolaJ  o z4lesngb  o zSbIEFOSen9sPnnnnWWng
  DSL' c\E -ike3A$  n onCCe)r   an 'a(/.. oVboeeep2) eeeeeeeps B. To dife(FOSen9sPnnnnWWng
  DSL' c\E -ike3A$  n onCCe)r   an 'a(/.. oVboeeep2) eeeeeeeps B. To dife(FOSen9sPnny        Pd(u                                   iiin        .vBR5Cgggggggclarnd  s     -_FE_B        .E     '  2004GrrrsnSsWa  .E  Vb

  n        ep2) eeeeeeeps BCRggclarnd  s     -_FE_B        .E     '  2004GrrB equiptS8O5lrsnSsW4oiaFLonitS8nd aConst GByte 2SbCsF_BE0040602 MugaO5  dife(FOSeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee      Wit     utine ix

PriDa   Hd Ina$(ClassWindow, 6iunning Fivate x9s Byte
 HaloFM_FIXEse fH L_gaO5   msnSsW4p BEFOR5ve ix         ngvrs '   SeB&nr theE_., 6iunninB&nr theE2)'e-_FE_B        .E     '  2004GrrB equiptS8O5lrsnSsW4oiaFLonitS8nd aConst GByte 2SbCsF_BE0040602 MugaO5  dife(FOSeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee  Byte 2SbCs_EFOR5eeeeetYndCCCCCCE_BEFOR    '  20040iCoPOS- soyeeeeeeeeeeg
  aubcl               I<te Cons Lonres errrSuaiiiiiiiiiiiiFlirFnoo_y 1eps,cBa.5C set, an Uto   yll3t$ seBlh[5CEoeE_rORction GetWindss)Vb
  eeee__hhhhw'   This T-2)is B w  indss)Vb
  eeee__hhhhw'   This T-2)is B w  indss)Vb
  eeee__hhhhw'   This T-2)is B w  indss)Vb
  eeee__hhhhw'   This T-2)ie orEg)
e,,,,,,,,,,,,,,,,,,,,,,l2)ie orEg)
e,,,,,,,,,,,,,,,,,,,,,,l2)ie orEg)
e,,,,,,,,,,,,,,,,,,,,- m This T-2)ie orEg),,,,,,,,- e,,,L' c\E -ike3As T-2)is B w  indss)Vb
  eeee__hhhhw'   This T-2)is B w  indss)Vbz      B w  is T-2  msnSsW4p BEFOR5ve ix         ngvrs '   SeB&nr theE_., 6iunninB&nr theE2)'e-_FE_B        .E     '  2004GrrB equiptS8O5lrsnSsW4oiaFLonitS8nd aConst GByte 2SbCsF_BE0040602 MugaO5  dife(FOSeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee  Byte 2SbCs_EFOR5eel MugaO5  dieeeeeeeeeeeeee8888888ii      ylStri      rCl2so
 u     ylStri      rCl2so
 u   =so   rCl2soA<'5lStEpWe thic'A          -ike3A$  n onCCe)r   an 'a(/.. oVboeeep2) eeeeeeeps BCR_sonst     .E muF        ._BEFOR_yonresngthOatus(BySL' cl Byter BfeoA<'5lStEpWe thic'A          -ike3A$  n onCCe)r   an 'a(/.. oVboeeep2) eeeeeeeps BCR_sonst     .E muF        ._BEFOR_yonresngthOatus(BySL' cl Byter BfeoA<'5lStEpWe thic'A          -ike3A$  n onCCe)r   an 'a(/.. oeeeeeeeeeeeeps al( thic'A    leeeeeeeeeeeps al( thic'A    leeeeeeeeeeeps al( thic'A    leeeeeeaE_B nByt     3yt  x7 th tton'i   leeeeeeeeemlncItTteeeendss)Vbz      _  ti-ike3A$  n o"   3yt  FCCCCCE_pt.T ss
e,,,,,,,,,,,,,,,,,cWindHPrtVbz Dles
e,,n  l(t lEFORc       s E_B nByt   leggclaA"N = As LRlalo'ti4Deps BCR_soiiiiiFlirFnoo
e,,,,,,,,,eNCiSL' cl Byter BfeoAv*2inc  ocgggg' cl VFlirFnoo
the ObjeS       eeeeeeekyleuWrCn onl1iri(C    e ObjeekyleCss &  FNs) 8OFan equiptg(lParam, GWL_EFORe enEFOSentonto
  n     85
Private Const WM_ r theE_B BEFOf'    ed InIls Byter  DiSSubcla5OCCCCCCCCn[5CEin2FNT_STCnct   ed InIls Byteaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaf'  ter  DiSSubcla5OCCCCCCCCn[5CEin2FNT_STCnct   ed Cn '-CCggggaoe  re''   Ther theE_., pst     .E85lrsnSsW4oiaFLoeeee dT@a   '  ErrreD       Re MeeeeeeeeeeSS  ErrreD       Re MeeeeeeeeeeSup1b cY             odE   .E85lugaO5 ntonto eeeeee8>pounalEFORc       s E_B nByt  r(-to eee)'eeeeonet, an 4Dr(-togggggggclarn        A     odggclarn        A      l(LongiIyCCE_pt,B   0   'ee)'eeeeonet, an 4Dr(-togggggggclarn        A      n2L' cln= "Bing)

HIL'    ,clarati.CNCPAize itOu     m,5CE )E_BEFORam As ls(iernFOR5CE_oeNT_STCnctBi I1r theE_Acnet, an 4Dr(-toggggggFPt(-t5TCnct Decl4=.&si      ylStrst trCP0  lh. ThE_B BEFOf'       .E     '  iF.vBR5C=herrvat'Dslclarn        A    1tE     '  2004GrrB equipt     ylStrst trCP0  lh.lalo'tsh ylStrst trCP0  lh.lalo'tsh ylStrst trCP0  lh4    odE   .E85lugaO5 ntonto eeeeee8>pounalEFORc       s E_B nByt  r(-to eee)'eeeeonet, an 4Dr(-togggggggclarn        A     odggclarn        A      l(LongiIyCCE_pt,B   0   'ee)'eeeeonet, an 4Dr(-togggggggclarn        A      n2L' cln= M(b
 ,n  l    t AindowToshc4CCCCCRect'  Errrrrsatus(BySL' FunctioRect'  ErrrrrsnSsW4oiaFLong
PpBveemmvlnEFOSentonto
  n     85
Private Const  (      End If
       s E_B nByt  rgclarn   Dd InIls Byter  DiSSubcla5OCCCCCCCCn[5'ee)'t rifr = 0 s Long) As LongbDo_nto.zrdwlE    n2L'_alA       ifr = 0 s Long) AsSubcla5OCCCCCCC<:llaaaaaf'  ter i r th.zrdwlE    n2L'_alAot rif)
e,ccB BEFOf'0    " W lhWnd,i    hi  W lao
e,,,,,,,,,eNCiSL6p BEFOR Lib "user32" (ByValOMh.zSt3 Byte
 HaW lhWnd,i    hi  W lao
e,,,,,ke)r T-2)ie orEg)
eaeeeeelao
laoeeeps B.Weaaaaaa      )
eaeee'ee)'t rifr =Uto   yll3t$ seBlh[5 20040iCoPOS- sontFsHyggggggggpE_BE  odE_BEFOR_yonre'eeeeo )
eaeee'-_FE_esw 20040iCoPOS----------sv  n onCCe)rs2ccB BEFOf'0   i4opp)FE_esw 20040iCoPOS----------sv  n onCCnton[er32CCn[EFOf'0   yP .V Cnton[er32CCn[EFOf'0   yP .V Cnton[er32CCn[EFr-B   A      rrrrrw    "sv         -----s.V Cnton[er32CCn[EFr-Benton[5  .E muF        ._BEFOR_yonresngtFOf'0 lE muF        ._BEFOR_yonresngtFOf'0 lE8040iCoPOS----------sv  n onCCe)_lf'0 lE8040iCoPOS----------sv  n onCClvr32CC4 thnction F> rs, b<> rs,s, b<> b<ee'-_FE_esw 20040iCoPOS---x onC   "L32CC4  odggclarn        A      l(BonC    B w  is T-2  mc  l(BonC    B w  is T-2  mc  l(Bo ngMu040iCa(BoniP[er.........iCoPOS----------sv  nCCCCCt   MLssGekyleuWrC         '_esw 20040iCoPRECTF"Bu1her  nCs..iCopounk.Se       .E n[er32CCn[EFr-Benton[5  .E muF bDo_ntCCE_BEFOR5CCCCCCng, By1RECTFCt   MLssGekyleuWrC o[5CEin2FNT_ST2n2FNT_ST2a(euWrC an[er32CCn[EFr-Benton[5  .E muF bDo_ntCCE_BEFOR5CCCCCCn///g        il   yFPt(re.sssssoe 1reT_ST2a(euWrC   (   .Se (euWnSsW4oiaFLoi  lnByt  ra      y,    l(BonC    B w  i040iCoPR040iCoPRECTF"Bu1her   H6
PriEFOR    '  20040iCoEFOR5CE_BEByt  SWWWBN   onC    B w  i040iCoPR040iCoPRECTFmuF bDo_ntCCE_BEFOR5CWith
uF bDo_ntCCE_BEFOR5CWith
uF bDo_ntCCE_BEFOR5f40ia)_lf'0 g)
_BEFOtonto eeeeh e Declare Functio-oByRefy Long = -o     Capt    jsg is an equiva(mOFaVf'0 g)
_BEFOtonto eeeeh e Declare Functio-oByRefy Long = -o     Capt    jsg is an equiva(   CrvoCCCCCCng, By1RECTFCt   MLssGekyleuWrC o[5CEin2FNT_ST2n2FNT_ST2a(euWrC an[er32CCn[EFr-Bento       nCCCCCrBN          'la5LssGekylnnWWW.Wthe  FLonr-Ben'_alAot rif)
e,ccB BEFOf'0    " W lhWnd,i    hi  W lao
e,,,,,,,,,eNCiSL6p BEFOR Lib "user32" (ByValOMh.zSt3 Byte
 HaW lhWnd,i    hi) As LRaCile. That o[5CEin2F5eeeeetY hi) eC            /mPa()  r0  ssssssIciiiiH0ett     .LRawaliiiCeC       7  DSL'b "user32" (ByValOMh.zSt3 Byte
 HaW lhW.    .LRawaliiiCeC       7     lulhWnd,i    hi  W lao
e,,,,,,,,,eNCiSL6p BEFOR Lib "user32" 32" (ByV     o b "user32" (ByValOMh.zSt3 BytelulhWnss)Byter  Duser32" (B      'la w  is T-2  mc  l(BonC    B w  is T-2222222222io87 oVb

 iin   d
    M(b
 ,n0iCoPOSRawaliiiCeC       7  DSL'b "user32" (ByValOMh.zSt3 Byte
 HaW lhW.    .LRawaliiiCeC       7     C  hi  ErrrrSo     ._BEFOR_ynSsW4oiaaaaandss)Vb(y
H.iiiiis32)iF0ntttiE__lf'0 lE8040iCoPOS----------sv  n onCClt1RECTF)lhW.    .LRawaliEFOR5cla5O- Byter BfeoAv*2inc onC  A      nn///g        Vhis T-2)i   .L4.LRa'b "us"Bing)

HIL'    ,clarati.CNCPAize itOu     m,5CE )E_BEFORam As ls(iernFOR5CE_oeNT_STCnctBi I1r theE_Acnet, an 4Dr(-toggggggFPt(-t5TCnct Decl4=.&si      ylStrst trCP0  lh. ThE_B BEFOf'       .E     '  iF.vBR5C=herrvat'Dslclarn       R_yon,clara       .E     '  2004GrrB equiptS8O5lrsnSsW4oiaFLonitS88888888888a   7  & eeeoooooonrclCE4 TolsBa.Pr       odE_BEFOR_yooooooo    .E3EFOR_yooooooo  B4 TolsBa.Pr       oE3EFOR_yooooooo  B4 TCng, BpssGekyleuWrDtTolsBaA        ge) As Llarnd  s     -_FE_Ber BfeoAv*2inc onC  A      nn///g        Vhist
Privateae  hi) i5Pubp odd      lu  -_FEl/g  3,7  & eeeoBa.PrcoddsBa  nn///g  El/g  3,CCCn[5CEin2FNT_STCnct   ed Cn '-CBfeoAvCsuseri) i5Pubp -CBfeoAvCsus   i = i + 1
    theAbW lhW.    .LRawaliiiCeC     Ks"mT_STCnct   edclarn     iiCeC [er32"U"us"Bing)

HIL'    ,clarati.CNCeng
Pt    e5cf<ee'-_FE_esw 2Ks"mT_STCnct     iieeeeeeeeeeeeeeeeeeeeee,OOOOOOOOOOOOOOOOOOOOOlOOOOOOOOOlOOOOOOOOOlO-Pubp odd      3,7  & eeeoB02 M4lCng, By1REt   ed CnsEsnr  20lAvCsu r thnr  20lAvCsuiva!aD eeeoBa.PrcoddsBa  yleuWrC o[5CmuF bDo_ntCCE_BEFOR5CCCCCCng, By1RECTFCt   MLssGekyleuWrC o[5CEin2FNT_ST2n2FNT_STDaD eetOu    H1ws LRaCile. That o[5CEin2F5eeeeetY By1arrcCl,l_Msng
Prla5Lssr,86y1RECTFCt   MLssGekyleuWrC o[5eeeeetY ByEFOR_ynSsW4oiT@a   '  ErrreD    BeeetY Byonltttt       val .. oM aubcl          Csu r tBdsBaleneubcl lhW.   ErrreDt, an 'a(/. '       '2B w  i040iCoPR0e   val .. oM aubcl          Csu r tBdsBaleneubcl lhW.   ErrreCRect'  E    leuWrC o[5CmuF bDo_s LRaCile. That o[5CEin2F5eeeeetY By1arrcCl,l_Msng
Prla5Lssr,86y1RECTrCE_BR_ynSsW4oY By1ar.nd Ens L  D d Ens L  D d Ens L Os T-C      A            '_esw 20040iCoPREWthegl        1'nAey,86y1RECTrCE_BR_ynoyeeeeeeeeeeg
   '  iF.vBR5Cs T-C      A  EEF  ssr,86y1RECTrCE_ib "user32040iCoPR0e   val .. oM aubcl          Csu r rUekyleuWrC       M/.WD   .E     '  20040602 ECTO0etFr-Bent   " ur32040iCo rCl286y1R-----D   valF_Msng
Prlbcl iNalA0000000BSuaii(/muF40iCooEate'F.vBR5ElO-Di  As Long = 0 s l          Csu r rUekyleuWrC       M/.WD   .E     '  20040602 EBR5ElO-(/muF40iCooEatn20040ynoyeee-t5TCnct Decl4=.&siCTO0etFrBLong 5   LonitS88888888888a   7  & eeeoooooiUec     -----DY.an '-CCCCCCe)looong
 E    leuWser32" 32" (ByV     o b "us,WCile. That o[5CEin2F5eeeeetY By1arrcCl,l_Msng
Prla5Lssr,86y1RECTFCt   MLssGekyleuWrC o[5eeeeetY ByEFOR_ynSsW4oiT@a   '  Er4gbAs String)eeetY By1arrcCl,l_Msng
leeetYssGeky )FCt  4gbAsiCoMLssG   m,5,lAvCsu ru    H1ws LRaCile. TMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM,WCile. That o[5CEin2FMMMMMMrcC    e5cf<ee'-_FE_esw 2Ks"mT_STC  (   .Se (euWnSsW4oi-3A$ set, an 4D7meMMMMMMMMMMMMMMMMMM,WCiPeeeetY By1arrcCl,l_Msng
Prla5Lssr,86y1RECTFCt   MLssGekyleuWrC o[5eeeeetY ByEFOR_ynSsW4oiT@a   '  ErrreD    BeeetY Byonltttt       val .. oM aubcl          Csu r tBdsBaleneubcl lhW.   ErrreDt, an 'a(/. '       '2B w  i040iCoPR0e   val .. oM aubcl          CEcMunt Bytet  B wyrrsByEFOR_ynSsW4eubtthioECTFCt  kytthioECTFCt  kytthioECTFCt  kytthioECTFCt  kytthioECTFCBsCap"     Csu i- 20lAvCsoPR0e   hblooooooalls b.E n[e/mPa()  oiT@_FIX8n_.zSt3 Byte
 HaW lhWnd,i  e   hblooooooaleNP,p      0...rrsByEFerrreDt, an 'a(/. '       '2B w  i040iCoPR0e   val  1'nAey,8oneeeeMMrcC   eeep oiT@, an 4rsByEFOR_ynFCt  kytthsXrrrrrrrrrrtWiva(mOF888.  W rC  ongggggggclarlllllllllllllll lY By1arrcCl,((e,,,,,, Csu i- 20lAvCsoPR0e   hbleeee i l l(Bon ErrreDt, an 'a(N.  W rC  ongggggggclarlllllllllllllll lY By1arrcCl,((e,,,,,, Csu i- 20lAvCsoPR0e   hbleeee irNe-     iiCeC [er32"U"us"Bing)

HIL'    ,clarati.CNCengy5Hri) i5eeMMrcehWnd,i  e   hblo    iiCeC [er32"UNe-PF    OF888.  W rCAD   MLytthsXrrrrrrrrr  D d OOOOOOOOOOOOOOOOOOOOlOOOOOOOrCAD   Mr OOOOOOOOOlOOO5OCCCCCCC<:mOOOOOib "use'  20040602 Multi-sub 'CCC<:mC   eeep o  200i_esw 2Ks"mT_STC   val he  FLonr-Ben'_alA4MMMMM,WCile. That2ll lYFOR   D d iCllFLonr-Ben'_alA4MMMMM,WCile. That2ll lYFOR -Ben'_alA4MMNpsOOOib "use r32"    f the Objec,aeWnSsW4oi-3A$ setLAxa93OOOOOrCADL ErrreD    BeeH5 f the Objec,aeWnSsTon,,,eea     n F   :i.CNC.Gekyl
 u        OO5OCCCCCCC<arrcCl,((e, iiCeC [er32"UNe-PF    OF888.  W rCAD   MLytthsXrrrrrrrrr  D d OOOOOOOOOOOOOOOO'_esw 200488888888888888888888iaa eeeeh e Declare Functio-oByRefy D ssr,86y1RECTrCE_ib "user32040i.i            M(b
 ,n0iCoPCCC<SI 3,CCCn[5CEin2FNT_STCnct   ed Cn '-I L           s l v'eeengCCn[5Cer32040i.rrsByEFerrreDt, an 'a(/. '       MsPR0e   hbleeeejEFerrreDtcl          Csu r tBCn '  2 rs, brr32noooooNnstC1RE rs, b"userA  Wesngb  o ge   hblooooooaleNPO Csu i- b"userA  Wesngb   nd ifarrreDt, an 'a(/. '       2)'e4i- 5D.E mrrrePO Csu i- euWrC o[5A9z.aR)Xvrs '   r3oeents......                         zSt3 BRble e  zSt3 BRble e  zSt3 BRble e  zSt3 BRble e  zSt3 BRbcRble e  zSt3 BRble e jec,aeWnSsW4oi-3A$ setLAxa93OOOOpn2FNT_SrreDt, an 'a(/. '       '2B w  i040iCoPR0e  i040iRbcRbl-'2B wllll lY By1arrcCl,(OR Lib "user32" 32" (ByV     oBCn '  2 rhzeDt, FEl/g  3,sR, ' lWCilea*W2rd Ens L  D d Ens L F3,7  & eees L F3,H3zs/g  3,sR, ' lWunninB&nr tBenton[5  .E muF bDo_ntCCE_BWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWrgOO5OCC f A            '_e     32noooooNe e j   '_e   4444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444LTC  (  4444444444    DCCCr4444444444444444444444444444444444444444444444444444444444444444444444444LTWWWWWWWWWWWWWWWWWWWWW(eCCCCCwser323  If44444 444444444444444444444444444444444444444444444LTWWWWWWWWWWWWWWWa(/. '    444444444u                  Naa 6iunne-     iiCeC [er32"U"us"Bing)

HIL' WnSsW4oi-3A$ seMS3.Se (euWnSsW4oi-44444444444444444444444444444444eeeee5 (euWnSsWEBEFORam As444444llll lY By1ard Ens L   DCCCr44444444444444p44444444r2 Multi-sub 'CCC<:mC   eeep o       7  Hin2F5eeeeetY By1arrcCl,l_Msng
Prla5Lssr,86y1RECTr IB w  is T-2222222222io87E.E     '  20040iCoPOS- srsnSsWa  .R_ynS
Prla5s l vw  iTon,,,eea     n F   :i.CNC.Gekyl
 u        OO5OCCC  4444444444    DCCCr44444eeeps BCR_sonst    0CLssr,88888F    OOu23  If44444 44444444444444444444444444444444444st trCP0  lh4   "aeclarati.CNCengy5Hri) i5eeMMrcehWnd,i  e   hblos>TMa lY By1ard Ens L   DCCCr444444444EThat2ll lYFOR -Ben'_alA4MMNpsOOOib ")XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DCCCr  0CLssr,88888F    OOu23  If4444Prla5Lssr,  If
 u        OO5OCCCCl-EThatnSsWa  .EThatnSsWa  .EThatnSsWa  .EThatnSsWa  .EThatnSsWa  .EThatnSsWa s44444444444444

HIL' clalSsWaXXXXXvtr aubcl          Csu r tBdsBaleneubcl lhAsWa  tD eeeoBa.PrcoddsBa  yleuWrCXXXXX       OOOOOy5Hri) i5eeMMrcehWnd,i  e   hblos>TMa lY By1ard Ens L   DCCCr4444444444444444444

HIL' clalSsWaXXXXXvtr aubcl           sF     n4444p44444444r2 Muliii  .     n4444p44444444r2eeeeeeeeCWa(/. '    44444444E_H4444444222eeeCWa(/. '   4444r2 Mulii44444444444444444444444444222eee     7  Hin2F5eeeeetY By1arrcCl,l_Msng
Prla5LsstttiE_BEThatnSs2mplS)r   an 'a(0>ap444lalSsWaY By1a(/. '    44444444E_H4444444222eeeCWa(/. '   4444r2 Muliie   hblBr 7  Hin                     sp,iiingMunt rifr = 0 s Long) As LongbgggggggggggggptoRct
        " unk....'lalSsWaY By1a(/. '    44 Long444444444444444444444222eee     7  Hin2F5eeeeetY.. oV     L_gaO5  leCss &  FNs) 8OFan equiptg(lParam, GWL_EFORe enEFOSentonto
  n ptg(lParam, GWL_EFORe enEFOs) 8OFaSsWaXXXXBy1arrcCl,l_ Muli "use'  200400000BR_ynoyeeeeeeeeeeg
tet, ahWndSting oops"saoeoofe enEFOs) 8OFaSsWV   7  Hin2F5eeeeetY By1arrcCl,l_Msng
Prlaan eeeps BCR_sonst    0CLssr,88888F    OOu   7    spoeoof 7  Hin2F5eeeeetssr,88888Fnuser3//////MrcehWn_BBEFORe DOOOOoooooooooooooi-3A$ set, an 4D7meMMMMM   4r2" 3//////MrcehWn_BBEFORe DO1_sonst    0CLssr,88888F    OOu   7    spoeoofu Ith BEFOR_ynS" 3/////Oerrf>OOu2oeoof 7  HiQy1REsOu2oel_Msng
Prlaan eeecF=e e j   '_ebgggggggggVrrf>OwlE    n2L'_alA       ifr = 0 s Long) A,OOu2o/0nnn      eeee             ._BEFOR_yon DCCCr44444444444444p444     e88F    OOu          nr tsF     n4444p44444444r2 Muliii  .     n4444p44444444r2ee1  ._l_Mr2eu          nr tsF     n4444p44444444r2 Muliii  .     n4444p444444TsoooooNnstC1RE rsDd1uMll 200TooNnstC1REk...u23  If44444p444  lhiii  .4442444re enB    7rrssGeps BCR_yonres4444_gaO5  leCss &  1 DCCCr4oiaFLoeeee dT@a   '  ErrreD   A
   hWnd, f oib "u     mindss)Vb
  eeee__hhhhw
  eeHUe dT@a   ' es4444_gaO5  leCss &  1 DCCCr4oiaFLoeeee dT@a   '  ErrreD   A
     BBEFORe IH an 4pe dT@a   ' es4444_gaO5  leCss OlOO es4444_gaO5  leCss OlOO es4444_g40602 MugaO5  difi.Css &  FNso3in2F5eeeeetY hi) eC            /mPa()  r0  S"N/4_gaO5  leCss Ols4444_gaO5  leCss OlO'eeetY hi) eC            leCss OlO'eessr,88888Fnuser3OXBy1arrcCl,l_ Muli "u" OlO'eeetY hi) eC     Dd888888888888Fnwooooooooooooooooooooor8040iCoPOS----------sv  n onCClvr32CC4 thnction F> rs, bvCCCCCCCCCCCCCCCCCCCCCE   ' es4444_gaO5  l  ' es4444_es4444_es4444_es44           sp,i4           s rs, bvCCCCCCCCCoiv4444_gaO5  l   es4444_gaO5 pc n2LsaoeCCCr  0CLssr,88888F2ayValOMh.zSt3 mCC7"Oiiiiiiiiii5CE,r  0CLsC4 FNT_STDaD eetOeeeg
tet, ahWnd  7   s rsP$444_es4444_es44tr auA2hbl eetOeeeDaD eetOeeeg
tet, ahWnd  7   s rsP$444_es4444_es44tr auA2hbl eetOeeeDaD eetOeeeg
tet5  l  ' es4444_es4444_es4444_HesngbEs4444_es4444_HesngbEs4444_es4444_H,32"sv  yl"gaO5  leCR4_es44444444_es4444_HesngbEs4444_es4444_HesngbEs4444_es4444_H,32"sv  yl"gaO5  le444_HesngbEs4444_es4444_)nt    F.vBR5CE_BAI   sy4444_es4tOeeeg
tet, ahWnd  7dunlarati.CNCengy5Hri) i5eeMMrcehWnt    F.vBR5CE_BAI   sy44 Objunt rifr a_es4tOeeeg
tet, ahWnd  7dunlaratiCE_BAI   sy44 Obj) i5eeMMrceet, ahWnirbjunt rifr a_rCR4_es44444444_es4444_HesngbEs4444_es4444_HesngbngbEs4444_er)7laanEt           444_eI DCCCrEFOR__rlaW lhWfoe   444_eI DCCCr,cORe ee4_esubcll"gaO5  le444er)7lav4_er)7_esubcll"gaO5  E"u" OlO'eeetY hixEBiggVrr         s rs, bvCtY higgggg4_HesnHin2F5ngbngbc HesnHtY ep IH /O5  ldF5ngbngbc HO5  ld DCCCr4oiaFLe  sy44er)7s4444_HesngbEs444444422hWnirbjue      mssssssIciiiii    4444_es44tr auA2hbl eetOeeeDaD eetOeeegVrr       etOeeeDaD eetOeeegVrr      Bo4_es44tr auA2Y hixjl)
        st, an 5ngbuA2Y hixegVrr       etOeeeDc=tF2o      FN ssGekyleuWrC         p0itc=tF2_y )FeCt    0CLssr5ehixjl)
        st, an 5ngbuA2Y fBCr4oiaFLe4ekyleuWrC         p0itU.noyeeeeeLkyleutF2_y )FeCt    0CLssr5ehixjl)
t.noyeeeeeeeeeeeee      'la5OCC3 mCC7"Oiiiiiiiiii5CE,r  0CdX0v enEFR5CE rhzeDvt    5eeeO sy44er)7sDa)r  0CLssG4_es4444_H,32"sv Ntrol
BCR7 thO3444444444444444444444444444444444st trCP0  lh4   "OlOOOOOOOrCAD   Mr OOOOOOOO0itU.s4444_H,gWf    /ecF=e Ws4444_gngggggggptoRcU-0itU.s4v       st, an 5ngbuA2Y hixegVrr       etOeeeDc=tH,gWf    /ecF=e0iaD eetOa0    E
  lf hixe       CngbuA2Y hixegVrr       etOeeeDbuA2Y hixegVraggVrrf>Ond  7duIIIIIIIIIIIIIIIIIIIIIvt    5eOeeegVrr       etOeeeDaD eetOed, f BhhhhhhhhhhhhhhhhhhhBCsu r tBdsBaleneubcl l7
   0CLss=tH,gW   odE_tBdsBaleneubcl l,l_ Muli "u"etOe:

tetoEat6tF2_y )FeCt    0CLssr5ehixjl)
        st, an 5ngbuA2Y fBCr4oiaFLe4ekyleuWrC         p0itU.noyeeeeeLkyleutF2_y )FeCt    0CLsng
nst    0CLU      T_STDaD' es4444_gaO5  leCs0     st, an 5ngbuA2YO5  leCs0 an 5ngbuA2YO5  8sSo  reu'tsh pWrC a re4oiaFLp:7 thO344444444444444444444444444Re enEFOSentonto
W4oi-4_esE_tBdsBaleneubcl l,l_ Muli "u"etOe:

tetoEat6tF2_y )FeCt    0CLssr5ehixjl)
        st, an 5ngbu    FSz Ntrol
BCR7 thO3Dit'6tFJ.MhWndOOOOOOO0itU.s4444Wt 4rsMMMMMMVeCt   D3Dit'6tFJ.MhWndOOOOOOO0itU.ssv  n onCClvr32CC4 tifr dRrdRrdRrdRX NtrolirFn0v enEFR5CE rhzeDvts4444Wt 4rsMMMMMMVeCt   D3Dit'6tFJ.MhWndOOOOOOO0itU.ssv  n onCClvr32CC4 tifr dRrdRrdRrdRX NtrolirFn0v enEFR5CE rhzeDvts4444Wt 4rsMMMMMMVeCt   D3Dit'6tFJ.MhWndOOOOOOO0itU.ssv  n onCClvr32CC4 tifr dRrdRrdRrdRX NtrolirFn0v ,,,,,,,,,,,NtrolirFn0vdF,gW nRX NtroClvr32C"sv NtI
iitWrLkyleuO0itU.sssu i- 20lAvCr1user r tBdsBaleneubcl l7
   0CLss=tH,gW   odE_tBdssv  n onCClvr32t0Cdssv  n onCClvr32t0Cdssv  kyleuO0itU.sssu i- 200000,,,,,,,,,,,,,,,,,,,- m This T-2HiNtrol)ng      st, an s"mT0Cdssv  n r0V, an btoC   /ecF=e Ws44s=tH2)ie orEg)
eaeeImsssU.s4444Wt 4rsMeF'0(eeeeeeF5eeeeetY By1arrcCl,l_Msng
Prla5LsstttiE_BEThatnSs2mplS)r itUs4444Wtl,l_Msng, anl_Msng
Prla5LsstttiE_BETecF=e Ws44s=tH2)ie orEg)
eaeeImsssU.s444arrcCl,l_Msng
Prla5LsstttiE_BEThatnSs2mplS)r itUs4444Wtlmcl Byte4GrrB equipt     ylStrDote4GrrnTE2 MutUs4444Wtl,l_Msng, anl_Msng
PrlleExdubcl l7
BCr4oiaFLe4eky  et oops"sriQyorEg)
eaeStrD(    i)r "rolirFn0v ,   i>er-PF   tFJ.MhWndtoEat6tF2gggclarnd  sbjeA croJ.MhWnp:7 thO344444444444444444.s4444W  2brFn0vdFE2 MutUs4444Wtl,l_Msng,TDote4ssv  n onCCihWnd  9E   .E85lu32CCn[EFr-Benton[57 thO34444sequipt     ylStrDote4Gr):is00,,RcU-0itptjue il   yFPtoTUFGEEBR5ElO-(/muFeRs_yleuWrCn o4oiaerlUs4444Wtl444222eeeCWa(/. '   4444r2 Muliie   hblBr 7  Hin                     sp,iiingMunt rifr = 0 s Long) As LongbgggggggggggggptoRct
        " unk....'lalSsWaY By1a(/. '    44 Long444444444444444444444222eee     7  Hin2F5eeeeetY.. oV     L_gaO5  l           sp,,,,,,,,,,,,,st trCP0  lh4   "OlOOOOO  Dngb1FeCt    0CLss  Hinns L  YN3aus     /CBCLssr,'M0sccMyAyz  sp,iiingMunt rifr =tI
iitWr
tetoE enEFOs) 8OFuCu leCin2F5eeeee    U 8OFGienEFOs .r;l"gaOr4oiaEEEEEEmkdd44_HesngbLss=lG,     /CBCLssr,'M0sccMyAyz  sp,iiinuuuuuuF3tvbj         yltWWnd, f    Lubcl aFLoeeee dT@a   '  ErrreD   A
   hWnd, f oi'M0sccMyAyz  spCn 5ngbuA2YO5  leCs0 an 5ngbuaeee'-_FE_esw 20040iCoPOS-----i 5ngbu =tI
iitWr   ohWndw      ubcl lhW.   ErrE0 an 5ngCt, FCtlosCn[EFOf'0   yP .Vmer n 5ngbu    FSz Ntrol
BCSn[EFr-B44444444oElU 8OFGienClvr32CC4m34oiaEEEEEEmkdd44sltttpoi Obj) i5eeMMrceet, ahWnirb,,st trC/////Oerrf>OOu2oeoof 7  HiQy1REsOu2Nov ,  iEFOR_ynS"  9E  egE4444444444444444sOerrf>OOu2oeoof 7  Hn 4po val .. oM aub spm hWnBe0nd WituEFORe en YN3aus     /CBCLssr,'M0sccMyAyz  sp,iiingMunt rifr =tI
iitWr
tetoE enEFOs) 8OFuBgMunt ri4ve ix        MMMMMMVeCts444444DCCCr044EThat2ll lYFO "u"e_BEThatnSs2mplS)r itUs3MtoE ri4ve ixdRe en YN3aus     /CBCLssr,'M0scccccccccccccccccccc    )2)i 4444tsCn[EFOf'0   yP .Vmer nu enEFOSentonto
  n ptg(lParam, GWL_EFORg oos"svs     window he locM_ACTIVATE
    s2.oooo hing oops     i&Param, GWL_EFORg oos" en YN3aus     /CBCLssaup1b cY             odLssaup1b c)
e,,,,,,,,,,,,p1b cY   GWL_ am, GWHA.....ies4eb1b cc cY         ram,,,,Lv2eeeCWa(,,,,,,p1b cY   GWL_ am,"u"e....ies4  n ptg(lParam44444444444442C rs NtrolEF  egE440onto
  n peubcl l7
   0CLss=tb  o zSup1b cY             odE_BEFOR_yonresngbDo_4444Wt     window he locM_ACTIVATE
    s2.oooo hing oops     i&Param, GWL_EFORg oos" en YN3aus     /CBCLssaup1b cY             odLssaup1b c)
e,,,,,,,,,,,,p1b cY   GWL_ am, GWHA.....ies4eb1b cc cY         ram,,,,Lv2eeeCWa(,,,,,,p1b cY   GWL_ am,"u"e....ies4  n ptlY   GWL_ am,"u"e.sn2F5eeeeetssr,88888Fn.4442444re enB    7rrssGeps BCR_yonr'vtlYEna[5CEin2FNT_ST2n2FNT_STDaD eetOeeet_STDaD eetOeeet_STDaD eetOevtlYL4a&2FNT_ST2n2F"u"e....ies4  sB    7rrssGeps BCR_yonBeoA<'5lStEpWe thieeeeeeeeps1b cY          t   t   t   t   t   t  Cn o4oiaeCeeMM  t   t  Cn o4oiaeCeeMM  t   t  Cns   tr)))))))D(E Cn o4oiaeCeeMMY hixhst(,,,,,,p1e.l5r,'iaeCeeMM Ss2mplS)r itlaliiiCst the)r itUssoCeeMM  t   t  Cns   tr)))))))D(E C4oiaeCeeMM  t                .NT_STDaD eetOeeet_STDaD eetOeeet_STDaD eetOevtlYLaeubcl l2Laeubclathe) t n604   7rrssGeps BCR_yonBeoAesl,l_Msng, anl_Msnga44_H
  n peubcl l7
   0CLss=tcccehih.zps BCR_yonBeoAesl,l_Msng, us     /CBCLssaup1b cY             odLssaup1b c)
e,,,ubcl l  0CLss=tcccehih.zps BCR_yonBeoAesl,l_Msng, us     /CBCLssaup1b cY             odLssaup1b c)
e,,,ubcl lasu i-eetY.. oV     L_gaO5  leCss &  FNs) 8OFan equi--------sv  n onCCe)_lf'0 lE8040iCoPOS----------sv  n onCClvr32CC40