Planet Source Code Jumbo Resource CD Visual Basic 1 to 7

home *** CD-ROM | disk | FTP | other *** search

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

Wrap

Text File | 2007-03-11 | 156KB | 1,585 lines

VERSION 5.00 Begin VB.UserControl ucXTab Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ClientHeight = 1575 ClientLeft = 0 ClientTop = 0 ClientWidth = 2910 ControlContainer= -1 'True ScaleHeight = 105 ScaleMode = 3 'Pixel ScaleWidth = 194 ToolboxBitmap = "ucXTab.ctx":0000 End Attribute VB_Name = "ucXTab" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False '+ File Description: ' ucXTab - SelfSubclassed Tab Replacement Container ' ' Product Name: ' ucXTab.ctl ' ' Compatability: ' Windows: 98, ME, NT4, 2000, XP ' ' Software Developed by: ' Paul R. Territo, Ph.D ' ' Adapted from the following online article(s): ' (Neeraj Agrawal - Original XTab Control) ' http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=56462&lngWId=1 ' (Paul Caton - SelfSubclassing Template) ' http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54117&lngWId=1 ' (Evan Todder - ContainedControls Tab Routine) ' Note: The link below is inactive, as these submissions were removed by the author ' http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=57642&lngWId=1 ' (Randy Birch - OS Version Detection) ' http://vbnet.mvps.org/Index.html?code/helpers/iswinversion.htm ' (James Laferriere - EqualRect API Routine) ' http://www.officecomputertraining.com/vbtutorial/tutpages/page45.asp ' (Dieter Otter - GetCurrentThemeName) ' http://www.vbarchiv.net/archiv/tipp_805.html ' (Fred.cpp - APILine, APIFillRectByCoords, APIRectangle) ' http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=61476&lngWId=1 ' ' Legal Copyright & Trademarks (Current Implementation): ' Copyright ⌐ 2005, by Paul R. Territo, Ph.D, All Rights Reserved Worldwide ' Trademark Ö 2005, 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. Paul R. Territo, Ph.D shall not be liable ' for any incidental or consequential damages suffered by any use of ' this software. ' '- Modification(s) History: ' 05Sep05 - Initial Selfsubclasing build of the ucXTab Control ' 07Sep05 - Added OS Detection support and ability to change the Tab style for ' WinXP and Classic Windows style Tab Controls. ' 10Sep05 - Removed redundant code and remaining Collections code from the ' UserControl. ' - Performed cleanup on existing routines and optimized several data ' handling routines. ' 17Oct05 - Added Galaxy Theme to the control to match the style created by Fred.cpp ' for the isButton. ' 25Oct05 - Replaced the SelfSubclasser routines with ones directy from ' Paul Caton's source and updated the calls to work with the ' current UserControl. ' 26Oct05 - Added common property setting routine to improve encapsulation and ' code reuse when calling ItemColors. ' - Eliminated "Call Forwarding" (Caller -> pMySub -> MySub) used in the ' original XTab project which in the Self-Subclassed UserControl is not ' required and simply results in methods overhead. ' 28Oct05 - Added MouseWheel Support for Tab Scrolling along with Associated ' MouseWheel Events for MouseScrollUp/Down. ' - Fixed FocusColor bug when changing Tabs via ActiveTab property.. ' - Fixed Hover and FocusColor in PropertyDialog style Tab drawing which ' caused an XOr of the Tab top Border. ' - Further optimized the base code to eliminate and consolidate calls for ' several drawing routines and tab typing routines. ' - Alpha Sorted the code and variables... ' 29Oct05 - Added Overloaded TranslateColorEx method to allow for color conversion ' when the color selected is not represented. The result is a color which ' is mapped to the current pallete for display with out an error on the ' the caller's end. ' - Additional code optimization to eliminate redundent and call forwarded ' routines. In addtion, removed reoutines which were called but did not ' provide any functionality (i.e. case statements with empty cases). ' - Optimzed the pHandleMouseDown and pHandleMouseUp handlers to remove all ' redunant calls (i.e. all calls were alike) ' - Added RemoveTabImage sub to allow for individual or all tab image ' removal from the control. ' 22Oct06 - Converted All drawing routines to API methods to provide near realtime updates ' - Removed pLine method, which wrapped the Line method and used APIs instead ' - Removed SetDefaultColor which was a "Call Forwarding" to ResetColorsToDefault ' - General cleanup and optimizations. ' - Added Version Property ' - Fixed minor BackColor and ForeColor bug which prevented persistance in the object ' 25Oct06 - Added pAlphaBlend method to provide color mixing along the tabs Focused Color or ' Hover Color when in XP Theme, and allows for smoother color transitions along the ' edges and a more rounded appearance. ' - Added additional Highlights/Lowlights to the pDrawOverXOrdTabbed and pDrawOverXOrdProperty ' - Fixed TabStripBackColor property bug which which prevented set backcolors from persisting ' in the object once set. ' 31Oct06 - Fixed FocusColor XOr Drawing bug which incorrectly painted the default XP cap color for the ' tabs when the conrol lost and regained focus. ' 04Nov06 - Fixed FocusRect size bug for XP Theme that painted the FocusRect over the Focus Cap ' color on the Focused Tab (Whew, too many Focuses in one statement ;-) ' 05Nov06 - Fixed ResetColorsToDefault bug in UserControl_ReadProperties method, which prevented ' custom colors to be retained from Design Time - Thanks Mirko Kressmann for catching this ;-) ' - Added InsertTab for dynamic tab addition which can be placed anywhere in the tab order ' - Added RemoveTab for dynamic tab removal from any place in the tab order ' 09Nov06 - Fixed Active and InActive Tab Cap Strip bug pointed out by Mirko Kressmann, when the ' FocusColor = ActiveTabStartBackcolor or InActiveTabStartBackcolor for both Tab and Prop page styles ' 10Nov06 - Fixed Active and InActive Tab Cap Strip bug or which painted the incorrect XOr Color ' when the HoverColor = ActiveTabStartBackcolor or InActiveTabStartBackcolor for both Tab and Prop page styles ' - Added AddControl method to allow dynamic control addition to the tabs once ' they were created dynamically. ' 11Nov06 - Added ControlBox drawing code to paint a control closure box on each tab for all styles ' Added UseControlBox property to allow the developer to choose if for tab closure ControlBox is ' shown on each tab... ' 12Nov06 - Added ControlBoxRect to TabInfo Type to store values for hit testing of the control boxes ' - Added WM_LMOUSEUP uMsg to subclass when the control box mouseup event occured. This allows ' the user to MouseDown using the WM_LMOUSEDOWN uMsg and paint the control, but not close the ' Tab.....if the mouse is still over the ControlBox on MouseUp (WM_LMOUSEUP) the Tab is removed ' - Added additonal drawing routines to DrawControlBox method to allow for all styles and themes. ' - Added Design Time Enum Locking for all Enums to prevent the Case Sensitive Bug from occuring ' when selecting variables in the IDE. ' - Changed all Const which did not need to be public to private to provide better encapsulation. ' - Explicitly set all Enums to an assigned values (i.e. &H0, &H1....&H6) ' - Set GetThemeInfo to Public so the developer can probe the color name directly.... ' - Fixed Minor FocusRect alignment bug caused by adding ControlBox buttons to PropertyPage Styles ' - Added ControlBoxEnter, ControlBoxHover, ControlBoxExit, ControlBoxMouseDown, ControlBoxMouseUp events ' - Added TabRemove, TabInsert events ' 13Nov06 - Fixed InactiveTabs ControlBox Flicker for RoundTab and VisualStudio Themes, by limiting the ' paint events to the current tab. ' 27Nov06 - Added TabOffset to allow the developer to set the m_lMoveOffset values independent of ' the usercontrols width. ' 19Dec06 - Added Additonal Host-Subclassing methods to capture the QuereyClose event....this helps to ' prevent GPFs if the Host Object is closed before we can unsubclass our usercontrol. ' - Fixed TabEnabled property and wire the functionality to the new controlbox drawings ' - Added additional subclassing flags to prevent GFPs when the subclasser is shut down ' - Added TabOffset property to allow the developer to set the Left shift value used in the ' HandleConatinedControls method. The original used a combination of a fixed offset (10000) units ' or a dynamic value which was set based on the design time property of the tab's width.... ' the new method prevents the possible issue of setting the offset for tabs at design time ' and having them change at runtime or increased at a later design time....the result of such ' a change is tabs which do not shift the controls by enough to clear the screen ;-( By allowing ' the developer to set these values to a large (~50-70K) value, the chance for this occuring ' is minimized. ' - Fixed painting bug in the ControlBox when tabs were disabled, but were painted as enabled ' - Fixed all drawing routines to permit Enabled/Disabled painting for each tab ' - Fixed drawing routines to Enabled/Disabled painting for whole usercontrol ' 10Mar07 - Added Enhanced Drawing for Tab and PropertyPage under WinXP style to support the ' three Luna Color schemes Blue, HomeStead, and Metallic ' - Fixed painting the ControlBox to refelct Active or Inactive Colors and correctly indexing tabs ' - Fixed ControlBoxExit event bug which fired on mouseover of the tab, but not coming out of the ControlBox ' 11Mar07 - Fixed Enabled/Disabled Tab Painting for Metallic XP Luna ' ' Force Declarations Option Explicit ' Build Date & Time: 3/11/2007 10:00:26 AM Const Major As Long = 1 Const Minor As Long = 0 Const Revision As Long = 152 Const DateTime As String = "3/11/2007 10:00:26 AM" Private Type POINTAPI x As Long y As Long End Type Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Type OPENFILENAME 'for GetOpenFileName lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Long nFileExtension As Long lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type ' Type Declarations (Adapted from VBNet, Randy Birch) 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 'Bitmap type used to store Bitmap Data Private Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As Long End Type Private Type TabInfo ControlBoxRect As RECT 'Coordinates for the ControlBox rectangle ControlID As String 'Unique ID for the Item Caption As String 'Caption for the tab ClickableRect As RECT 'Coordinates of the clickable rectangle Count() As Long 'Tab Count Enabled As Boolean 'Enabled? AccessKey As Long 'Accelerator Key TabPicture As StdPicture 'Tab Picture TabStop As Long 'Tab Stop Number End Type Private Enum xStateEnum 'Style for ControlBox State xStateNormal = &H0 '-->Normal Colors xStateHover = &H1 '-->Hover Colors xStateDown = &H2 '-->Down Colors End Enum #If False Then Const xStateNormal = &H0 Const xStateHover = &H1 Const xStateDown = &H2 #End If Public Enum Style 'Style for the Tabs xStyleTabbedDialog = &H0 '-->Tabbed Dialog xStylePropertyPages = &H1 '-->Property Pages End Enum #If False Then Const xStyleTabbedDialog = &H0 Const xStylePropertyPages = &H1 #End If Public Enum Theme 'Theme for the Tabs xThemeWin9X = &H0 '--> Windows 9x, 2000, ME style xThemeWinXP = &H1 '--> Windows XP style xThemeVisualStudio2003 = &H2 '--> Visual Studio .Net 2003 style xThemeRoundTabs = &H3 '--> Rounded Tabs xThemeGalaxy = &H4 '--> Galaxy (Similar to isButton Galaxy) End Enum #If False Then Const xThemeWin9X = &H0 Const xThemeWinXP = &H1 Const xThemeVisualStudio2003 = &H2 Const xThemeRoundTabs = &H3 Const xThemeGalaxy = &H4 #End If Public Enum PictureAlign xAlignLeftEdge = &H0 '-->Left edge of the Tab xAlignRightEdge = &H1 '-->Right Edge of the Tab xAlignLeftOfCaption = &H2 '-->Left of the caption xAlignRightOfCaption = &H3 '-->Right of the caption End Enum #If False Then Const xAlignLeftEdge = &H0 Const xAlignRightEdge = &H1 Const xAlignLeftOfCaption = &H2 Const xAlignRightOfCaption = &H3 #End If Public Enum PictureSize 'Determines Picture size on tabs xSizeSmall = &H0 xSizeLarge = &H1 End Enum #If False Then Const xSizeSmall = &H0 Const xSizeLarge = &H1 #End If '===Constants========================================================================================================= ' Draw Text Constants Private Const DT_CALCRECT = &H400 Private Const DT_CENTER = &H1 Private Const DT_RIGHT = &H2 Private Const DT_LEFT = &H0 Private Const DT_END_ELLIPSIS = &H8000 Private Const DT_MODIFYSTRING = &H10000 Private Const DT_SINGLELINE = &H20 Private Const DT_VCENTER = &H4 ' Window Position Constants Private Const SWP_NOSIZE = &H1 Private Const SWP_NOZORDER = &H4 Private Const SWP_NOACTIVATE = &H10 Private Const SWP_SHOWWINDOW = &H40 Private Const SWP_NOOWNERZORDER = &H200 ' Don't do owner Z ordering ' DrawIcon Related Constants Private Const DI_NORMAL As Long = &H3 ' Windows Versioning Constants Private Const VER_PLATFORM_WIN32_NT = 2 ' GetSystemMetrics Related Condtants Private Const SM_CXICON As Long = 11 Private Const SM_CXSMICON As Long = 49 '===================================================================================================================== ' The distance between the text (caption) of the tab and the focus Rect Private Const iFOCUS_RECT_AND_TEXT_DISTANCE As Integer = 2 ' The distance between the text and the border in a Property Pages style tab Private Const iPROP_PAGE_BORDER_AND_TEXT_DISTANCE As Integer = 7 ' The top for the property page (inactive property page) Private Const iPROP_PAGE_INACTIVE_TOP As Integer = 2 ' The width of the control box [x] Private Const iPROP_CONTROLBOX As Integer = 12 '===Declarations====================================================================================================== ' Drawing/Painting Declarations Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long Private Declare Function CreateCompatibleDC Lib "gdi32.dll" (ByVal hdc As Long) As Long Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long Private Declare Function DeleteDC Lib "gdi32.dll" (ByVal hdc 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 GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function GetObjectA Lib "gdi32.dll" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) 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 LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) 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 OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long Private Declare Function RoundRect Lib "gdi32.dll" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long Private Declare Function ScreenToClient Lib "user32.dll" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long Private Declare Function SelectObject Lib "gdi32.dll" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Private Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long Private Declare Function 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 SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function TranslateColor Lib "OLEPRO32.DLL" Alias "OleTranslateColor" (ByVal clr As OLE_COLOR, ByVal palet As Long, col As Long) As Long Private Declare Function TransparentBlt Lib "msimg32.dll" (ByVal hdcDest As Long, ByVal nXOriginDest As Long, ByVal nYOriginDest As Long, ByVal nWidthDest As Long, ByVal nHeightDest As Long, ByVal hdcSrc As Long, ByVal nXOriginSrc As Long, ByVal nYOriginSrc As Long, ByVal nWidthSrc As Long, ByVal nHeightSrc As Long, ByVal crTransparent As Long) As Long ' File Open Dialog Related Declarations Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long ' Subclassing Related Declararions Private Declare Function EqualRect Lib "user32" (lpRect1 As RECT, lpRect2 As RECT) 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 GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As Any) As Long Private Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long '===Constants========================================================================================================= ' Default property values Private Const m_def_bUseControlBox As Boolean = False 'Init Control Box on Each Tab Private Const m_def_bShowFocusRect As Boolean = True 'Init Focus Rect Private Const m_def_bEnabled As Boolean = True 'Init Usercontrol Enabled State Private Const m_def_bTabEnabled As Boolean = True 'Init Tab Enabled Private Const m_def_bUseFocusedColor As Boolean = True 'Init UseFocusColor Flag Private Const m_def_bUseMaskColor As Boolean = True 'Init UseMaskColor Flag Private Const m_def_bUseThemeDetection As Boolean = False 'Init UseTheme Detection Flag Private Const m_def_lActiveTab As Long = 0 'Init Active Tab Private Const m_def_lActiveTabBackEndColor As Long = vbButtonFace 'Init TabBack End Color Private Const m_def_lActiveTabBackStartColor As Long = vbButtonFace 'Init TabBack Start Color Private Const m_def_lActiveTabForeColor As Long = vbButtonText 'Init Active Tab ForeColor Private Const m_def_lActiveTabHeight As Long = 20 'Init Height for Active Tab Private Const m_def_lBottomRightInnerBorderColor As Long = vb3DShadow 'Init Bottom-Right Border Color Private Const m_def_lDisabledTabBackColor As Long = vb3DShadow 'Init Disable Tab Backcolor Private Const m_def_lDisabledTabForeColor As Long = vb3DHighlight 'Init Disabled Tab ForeColor Private Const m_def_lFocusedColor As Long = &HEE8269 'Init Focused Color Private Const m_def_lHoverColor As Long = &H3BC7FF 'Init Hover Color Private Const m_def_lInActiveTabBackEndColor As Long = vbButtonFace 'Init Inactive TabBack End Color Private Const m_def_lInActiveTabBackStartColor As Long = vbButtonFace 'Init Inactive TabBack Start Color Private Const m_def_lInActiveTabForeColor As Long = vbButtonText 'Init Inactive Tab ForColor Private Const m_def_lInActiveTabHeight As Long = 18 'Init Height for Inactive Tab Private Const m_def_lLastActiveTab As Long = m_def_lActiveTab 'Init Last Active Tab Private Const m_def_lOuterBorderColor As Long = vb3DDKShadow 'Init Outer Border Coor Private Const m_def_lPictureAlign As Long = xAlignLeftEdge 'Init Picture Align Private Const m_def_lPictureMaskColor As Long = &HC0C0C0 'Init Transparany Color Private Const m_def_lPictureSize As Long = xSizeSmall 'Init Picture Size Private Const m_def_lStyle As Long = xStyleTabbedDialog 'Init Tab Style Private Const m_def_lTabCount As Long = 3 'Init Tab Count Private Const m_def_lTheme As Long = xThemeWin9X 'Init Theme Private Const m_def_lTopLeftInnerBorderColor As Long = vb3DHighlight 'Init Top-Left Inner Border Color Private Const m_def_lXRadius As Long = 10 'Init Radius used in the RoundTabs Theme to draw the rounded tab Private Const m_def_lYRadius As Long = 10 'Init Radius used in the RoundTabs Theme to draw the rounded tab Private Const m_def_sCaption As String = "Tab" 'Default caption that is appended to form default name "Tab 0", "Tab 1" etc Private Const m_def_UseMouseWheelScroll As Boolean = True 'Init MouseWheel Supoort for Scrolling '===================================================================================================================== '===Property Variables================================================================================================ Private m_aryTabs() As TabInfo 'Array of Tabs Private m_bAreControlsAdded As Boolean 'Controls Loaded Flag Private m_bCancelFlag As Boolean 'Used to pass as a cancel flag with the events to the container. Private m_bEnabled As Boolean 'Usercontrol Enabled State Private m_bIsBackgroundPaintDelayed As Boolean 'See lTheme_DrawBackground() to get a description of this flag Private m_bIsMouseOver As Boolean 'Used to Track the MouseMovement Private m_bIsRecursive As Boolean 'IsRecursive Flag - Prevents Recursion on Load and Redraws Private m_bShowFocusRect As Boolean 'Focus Rectangle Flag Private m_bUseControlBox As Boolean 'UseControl Box on each Tab Private m_bUseFocusedColor As Boolean 'UseFocused Color Flag Private m_bUseMaskColor As Boolean 'Use MaskColor for Pictures - Not needed for Icon Image Types Private m_bUseMouseWheelScroll As Boolean 'Use Mouse Private m_bUseThemeDetection As Boolean 'Use OS Theme Detetion Private m_enmPictureAlign As PictureAlign 'Tab Picture Alignment Private m_enmPictureSize As PictureSize 'Tab Picture Size (Small/Large) Private m_enmStyle As Style 'Tab Style for the UserControl Private m_enmTheme As Theme 'Tab Theme for the UserControl Private m_IsFocused As Boolean 'Determines Focused State Private m_lActiveTab As Long 'Stores the Active Tab index Private m_lActiveTabBackEndColor As OLE_COLOR 'Active Tab's Back Start Color Private m_lActiveTabBackStartColor As OLE_COLOR 'Active Tab's Back End Color Private m_lActiveTabForeColor As OLE_COLOR 'Active Tab ForeColor Private m_lActiveTabHeight As Long 'Active Tab Height Private m_lBottomRightInnerBorderColor As OLE_COLOR 'Tab's Bottom Right Inner Border Color Private m_lDisabledTabBackColor As OLE_COLOR 'Disabled TabBackColor Private m_lDisabledTabForeColor As OLE_COLOR 'Disabled TabForeColor Private m_lFocusedColor As OLE_COLOR 'Focused Color - Used with WinXP Style Private m_lhDC As Long 'Device Context for the UserControl Window Private m_lHoverColor As OLE_COLOR 'Tab's MouseOver Color Private m_lhWnd As Long 'Handle for the UserControl Window Private m_lIconSize As Long 'Icon Size Private m_lInActiveTabBackEndColor As OLE_COLOR 'InActive Tab's Back End Color Private m_lInActiveTabBackStartColor As OLE_COLOR 'InActive Tab's Back Start Color Private m_lInActiveTabForeColor As OLE_COLOR 'Inactive Tab ForeColor Private m_lInActiveTabHeight As Long 'InActive Tab Height Private m_lLastActiveTab As Long 'Stores the Last Active Tab Index Private m_lMouseOverTabIndex As Long 'Stores Index of Hover Tab Private m_lMoveOffset As Long 'Offset Move Controls when a Tab is Clicked Private m_lOuterBorderColor As OLE_COLOR 'Outer Border Color Private m_lTabCount As Long 'The Number of Tabs Private m_lTabStripBackColor As OLE_COLOR 'TabStrip Back Color Private m_lTopLeftInnerBorderColor As OLE_COLOR 'Tabs Top Left Inner Border Color Private m_lXRadius As Long 'Corner XRadius for Rounded Tabs Private m_lYRadius As Long 'Corner YRadius for Rounded Tabs Private m_oActiveTabFont As StdFont 'Tab's Font Private m_oInActiveTabFont As StdFont 'InActive Tab's Font Private m_Pnt As POINTAPI 'Used to Store the X,Y Position in Subclassing uMsg Section Private m_lScaleHeight As Long 'Scale Height of UserControl Private m_lScaleWidth As Long 'Scale Width of UserControl Private m_utRect As RECT 'Stores a Copy of RECT '===================================================================================================================== Private WithEvents SDIHost As Form Attribute SDIHost.VB_VarHelpID = -1 Private WithEvents MDIHost As MDIForm Attribute MDIHost.VB_VarHelpID = -1 'Public Events======================================================================================================= ' Note that bCancel is passed by Reference in below event. This event is called just before a ' tab is being switched, we can prevent tab switch by making bCancel as true Public Event BeforeTabSwitch(ByVal iNewActiveTab As Integer, bCancel As Boolean) ' If we Set bCancel in the BeforeTabSwitch following event will not occur. Public Event TabSwitch(ByVal lLastActiveTab As Integer) ' Public Events Public Event Click() Public Event ControlBoxEnter() Public Event ControlBoxExit() Public Event ControlBoxHover(x As Single, y As Single) Public Event ControlBoxMouseDown(x As Single, y As Single) Public Event ControlBoxMouseUp(x As Single, y As Single) Public Event DblClick() Public Event KeyDown(KeyCode As Integer, Shift As Integer) Public Event KeyUp(KeyCode As Integer, Shift As Integer) Public Event KeyPress(KeyAscii As Integer) Public Event MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Public Event MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Public Event MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Public Event MouseHover(ActiveTab As Long, x As Single, y As Single) Public Event MouseScrollUp() Public Event MouseScrollDown() Public Event TabInsert(AfterTabIndex As Long) Public Event TabRemove(TabIndex As Long) 'IMPORTANT EVENT : used to solve a bug with original ssTab.... 'used to tell container when the tab is completely initialised. Public Event AfterCompleteInit() '================================================================================================== ' ucSubclass - A sample UserControl demonstrating self-subclassing ' ' Paul_Caton@hotmail.com ' 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........... '================================================================================================== ' ' SelfSubClasser Events Public Event MouseEnter() Public Event MouseLeave() Public Event Status(ByVal sStatus As String) ' Message Constants Private Const WM_ACTIVATE As Long = &H6 Private Const WM_MOUSEMOVE As Long = &H200 Private Const WM_MOUSELEAVE As Long = &H2A3 Private Const WM_MOVING As Long = &H216 Private Const WM_SIZING As Long = &H214 Private Const WM_MOUSEWHEEL As Long = &H20A Private Const WM_EXITSIZEMOVE As Long = &H232 Private Const WM_TIMER As Long = &H113 Private Const WM_LBUTTONDBLCLK As Long = &H203 Private Const WM_RBUTTONDBLCLK As Long = &H206 Private Const WM_LBUTTONDOWN As Long = &H201 Private Const WM_RBUTTONDOWN As Long = &H204 Private Const WM_LBUTTONUP As Long = &H202 Private Const WM_SYSCOLORCHANGE As Long = &H15 Private Const WM_THEMECHANGED As Long = &H31A ' Mouse Tracking Constants Private Enum TRACKMOUSEEVENT_FLAGS TME_HOVER = &H1& TME_LEAVE = &H2& TME_QUERY = &H40000000 TME_CANCEL = &H80000000 End Enum ' Mouse Tracking Structure Private Type TRACKMOUSEEVENT_STRUCT cbSize As Long dwFlags As TRACKMOUSEEVENT_FLAGS hwndTrack As Long dwHoverTime As Long End Type ' SelfSubclasser Local Properties Private bTrack As Boolean Private bTrackUser32 As Boolean Private bInCtrl As Boolean Private bInCtrlBox As Boolean Private m_lTimerID As Long Private bSubClass As Boolean ' SelfSubclasser API Declares Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long Private Declare Function LoadLibraryA Lib "kernel32" (ByVal lpLibFileName As String) As Long Private Declare Function TrackMouseEvent Lib "user32" (lpEventTrack As TRACKMOUSEEVENT_STRUCT) As Long Private Declare Function TrackMouseEventComCtl Lib "Comctl32" Alias "_TrackMouseEvent" (lpEventTrack As TRACKMOUSEEVENT_STRUCT) As Long Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) 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 '================================================================================================== ' Subclasser Declarations 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 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 Sub RtlMoveMemory Lib "kernel32" (Destination As Any, Source As Any, ByVal Length As Long) Private Declare Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As Long Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long Private Declare Function 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 '====================================================================================================== ' UserControl Private Routines ' Determine if the passed function is supported Private Function IsFunctionExported(ByVal sFunction As String, ByVal sModule As String) As Boolean Dim hmod As Long Dim bLibLoaded As Boolean hmod = GetModuleHandleA(sModule) If hmod = 0 Then hmod = LoadLibraryA(sModule) If hmod Then bLibLoaded = True End If End If If hmod Then If GetProcAddress(hmod, sFunction) Then IsFunctionExported = True End If End If If bLibLoaded Then Call FreeLibrary(hmod) End If End Function Private Sub TrackMouseLeave(ByVal lng_hWnd As Long) ' Track the mouse leaving the indicated window Dim tme As TRACKMOUSEEVENT_STRUCT If bTrack Then With tme .cbSize = Len(tme) .dwFlags = TME_LEAVE .hwndTrack = lng_hWnd End With If bTrackUser32 Then Call TrackMouseEvent(tme) Else Call TrackMouseEventComCtl(tme) End If End If End Sub '====================================================================================================== '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 Static bMoving As Boolean Dim ActiveRect As RECT, MouseOverRect As RECT, ControlBoxRect As RECT Dim iCnt As Long Select Case uMsg Case WM_ACTIVATE ' Store the current tab mouseover data so when the ' control regains focus we can repaint the header caps ' correctly....this mainly is required for rivate m_lsxE Static bMoviectly....t bInCt age vM_ACTIVATE being ip 'Table B (before) entry count patch offset Private Const PATCH_08 As Long = 132 t the As Long - Message As Long = &H15 Privaternd If If bLibLoaded Then Call FreeLibrary(hmod) End If End Funn Call FreeLibrary(hmod) End If End Funn Call FreeLibrary(hmod) End If End Funn Call FreeLibrary(hmod) End If End Funn Call FreeLibrary(hmod) End If End Funn Call FreeLibrary(hmod) End9 Caheme "gdi3Ty isT tTim ActiveRect As RECT, Mou Call FreeLim ActiveR La(t9 CahemLim Actm ActiveR od) End If End 'Enabled? AccessKey AsdP)TFeeLibrary(hmod) End If End Funn Call FreeLibrary(hmod) End If End Funn Call FreeLsr Color Privat messaos needdddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd If End FN) End Ifht As Long P 'Active Ta'Acti 'Used to Store the X,Y Position in Subclassing uMsg Section Private miunn ouseove m_ddddddddddddddddd MouseL_08 As Lodddddddddds StrE End ddddddd Mo End Funn dnd afs Long 'Msg before table entry count aMsgTblA() afsRe numic Event Keentry count aMsgTblA() afsRe numic Event Keentry count aMsgTblA() afsRe numic Event Keentry count aMsgTblA() afsRe numic Event Keentry count aMsgTblA() afsRe numic Event Kee count aMsggTblA() afsRe numic Event Kee count aMsggTblA() y count aMsgTquiretc 'Msg before table entry count aMsgTbl afsRes Long iKey AsdP)TFeeLibrary(hmonumiginaGet/Sb count aMnumiginiginaTME_ End If========================================================== '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 lRetur'Table B (befL dP)TFcddddddddd1d If End If the e dP)TFcdddddnaTME_ En afsRe numic Event Kee count aMsggTblA() y count aMsgTquiretc 'Msg before table entry count aMsgTbl afsRes Long iKey AsdP)TFeeLibrary(hmonumiginaGet/Sb count aMnumiginiginaTME_ Private m_lIn5 cre table entry c"Cons6TFcddddic properties also Public Sub zSubclass_Proc(ByVal bBefore As Boolean, ByRef bHandled As Boolean, ByRef lRetur'Table B (befL dP)TFcddddddddd1dlif bHaonts0Val bBefore As Boolean, ByRef bHandled As Boolean, ByRefrcount lif bHaonts0Val bBeforeal bBeforedddddt3oAs Boolean, ByRefrcount lif "Cons6TFcdeventConstants Private Const WM_ACTIVATE As Long = &H6 Privat As Lon_Proc) Irivat As L Uo .dwFlti-subclassing version..........asggTblA() vb3DHighlthenS The distance between the ByRefrcountOeLarge = &iI........asggTblA() vb3DHighlthenS The distance between the ByRefrcountOeLarge = &iI........asggTblA() vb3DHighlthenS The distance between the ByRefrcountOeLarge = &iI........asggTblA() vb3DHighlt 'va dP)TFcddAg Pri' Call rivate Const WM_LB, Shift IS' As Bo If hmodlt 'va dP)TFcddAg Pri' Call rivate Const WM_LB, Shift IS' As Bo If hmodlt 'va dP)TFcddAg Pri' Call rivate Const WM_LB, Shift IS' As Bo If hmodlt 'va dP)TFcddAg Pri' Call rivate Const Pri' Call rivate Const Priva('>teger, 'Msg befl Irrrrrrrrrrrrrrrrrrrrrrrrrr================( distance betwee 'Higotfore vBrrrrrrrrrw 'Hance betwrC>, Constte End Ifht As Long P 'Active Ta'Acti 'Used to Store the X,Y Position in Subclager, ByVal========aX beforSblic Bo nction OffsetRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRtRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRtRRrrrrrrrrrr) End If End Funn Call , RRRt Call TrackMouseE Ceded vI.....asggTblA() vb3D RECT, Const (lePrivNnd ddddddd End Ifthe subclass codtable entry c"Cons6TFcddddic properties also Public Sub zSubclass_Proc(ByVal bBeforessRe numic Event Kte Declare Funorder CCode RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRs Bo If hmodls Call 'UseRRRRRRRRRRRRRRRRRRRRtRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRtRRrrrrrrrrrr) End If End Funn fsetRRRRRRRRRRRRRRRRRRRRRRRRRRs Bo If hmodls Call 'UseRRRRRRRRRRRRRRRRRRRRtRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRtRRrrrrrrrrrr) End If End Funn odlt Funn Call , Funn nst WM_ACTIVATEFunnbRtRRrrrrrrrrrr) End If Eliiiiiiiunt aMsgTquiretcdbwrC>, Consttend I Call 'UseRRRRRRRRRRRRRRRRRRRRtRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRtRRrrrrrrrrrr) End If End Funn fsetRRRRRRRRRRRRRRRRRRRRRRRRRRs Bo If hmodls Call 'UseRRRRRRRRRRRRRRRRRRRRtRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRtRRrrrrrrrrrr) RRRR,ByRRRRRRs Color 'ng, ByVal cchMaxSizeChars As Integer) As ACTIVATEFunnbRtRRrrrrrrrrrr) End IfmaRRtRRrrrrrrrrrr) RRRR,ByRRRRRRs Color 'ng, ByVal cchMaxSizeChars As Integer) As ACTIVATEFunnbRtRRrrrrrrrrrr) End IfmaRRtRRrrrrrrrrrr) RRRR,ByRRRRRRRRRRRRRRtRRRRRRRRRRRRRRRo RRrrrrrrrmSrivNnRRRRRhmodls ouines ' Determine ifrrrrrrrmRRRRRRRR Call FreeLibrary(hmod) rrrrrrr) End If End Funn odlt Funn Call , Funn nst WM_ACTIVATEFunnbRtRRrrntComCtl Lib "Comctl32" Alias "_TrackMouseWM_lds "_Tra,enmPicturprrrrrmSrivNnRRRRRhmodls ouines ' orrrr) nded Tabs Private m_lYRadius As Long 'Corner YRadius for Rounded Tabs Private m_oActiveTabFont afsRe num TabFont afsRe num TabFont afsRe num TabFont afsRe num TabFont afsRe num TabFont afsRe num TabFont afsRe num TabFont afsRe num =================================================== Prnd IfmaRRtRRrrrrrMRs Bondled s Long TabFont ===WM_ACTIVATEFunnr offset Private Const PAT afsRe num TabFont afsRe 4Long ByVal nIDEvbetween the ByR OhifabFont afsRe num ager, ByVal 'Init Theme Private Const befl IrrrrrrrrTvate Const PAT afsRe nffs Lon6c deleted PrivayValfbmtituted byte arrays for strings f fsetRRRRRRRRRRRRRRRRRRRRRRRRRRs Bo If hmodls Call 'UseRRRRRRRRRRRRRRRRRRRRtRRRRRRRRe fsetRRRRRRRRRRRRRRRRRRR Call 'UseRRRRRRRt afsRe num TabFont afsRe num TabFont afsRe num TabFont afsRe num TabFont afsRe num TabFont afsRe num TabFont afsRe numefl IrrrrrrrrTvate Constfet Private Cons ll 'UseRRRRRRRRRRRRRRRRRRRRtRRRRRRd RRRRRRRRtRRRRRRd RRRRRRRRtRRRRRRd RRRRRRRRtR PaWoRRRRRd RRRRRRRRtRR RRRRRRRRtRRRRRRd"RRRtR PaWoRRmng) As Lon( TyVal )ate moRRmng) Ae) IRRtR odls Call 'UseRRRRRRRRRRRRRRRRRRRR916RtRRRRRRd RRRRRRRRtRRRRRRd33333333)tAmovn PrRtRRRRRRd RRRRRRRRtRRRRRRd IRRtR odls Call P)TFcddAg Pri' Calhn(nt" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long Private Declare Function RoundRect Lib "gdi32.dll" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long Private defRRRRRtR PayVal Y3 A0al X1 As RRtR ( al Y2 As Long, By e m_0al X1 As RRt afsRe numPrRtRRRRRRd RRRRR Calhn(nt" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long Private Declare Function RoundRect Lib "gdwn RoundRect Lib "gdwnWinXP Styl Y3 Asi2 As LAs Long,DbNng, By e m_0al XXXXXXXXR ( oim_0Section Private miR916RgTblA() vb3D RECT, Const (lePrivNnd ddddddd End Ifthe subclass codtable entry c"Cons6TFcddddic proper ng, ByVal gCUi1Lonrivate Declanst Privtry c"Cons6TFbcRRRRRRRRRRtRRrrrrrrrrrr) RRRR,ByRRRRRRs Color 'ng, ByVal cchMaxSizeChars As Integer) As T, Const (lePrivNn Privat As Lon_Proc) )at As Lon_P )at r As Long = 'Msg before table entry count aMsgTg = &H201 Private Const WM_RBUTTONDOWN As Long = &H204 Private Const WM_LBUTTONUP As Long = &H202 Private Const WM_SYSCOLORCHANGEiSYSCsdddd RR:ioBoolean hmod = GetModuleHandleA(sMod===================OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long Private Declare Function RoundRect Lib "gdh 'Corner RRd33333a>dls .... X3 As Lop... X3 As Lop...sRe num TabFont ========ong,DbNng, By e)s .... X3 As Lop... X3 As Lop...sRe num TabFont ========ong,DbNng, By e)s .... X3 As Lop... X3 As Lop...sRe num TabFont ========ong,DbNng, By e)s .... X3 As Lop... X3 As Lop...sRe num , in this d hmod = Gor Flag Private m_bU===== ' Usin this d or FHANGEiSYSC.. X3 As Lop...sRe num rx_FIXED As Long = 0 t& As LooIui As OLE_COLOR ' 2ByVal y As Long) As Long Private Declare Function RoundRect Lib "gdh 'Corner RRd33333a>dls .... X3 A zSubclass_Proc(,Private De As Long, ByVal y As Long) As Long Private Declare fset orate De As Long, ByVal y As Long)xCclare fset (=i,dg) As Long Private Declare Function RoundRect Lib "gdh 'Corner RRd33333a>dls .... X3 A zSubclass_Proc(,PrfAs Lop... X3 As Lop...sRe num .... X3 A zSubclass_Proc(,PrfAs Lop... X3 As Lop...sRe num .sRe num , in this d <S As Lon_Rc As Lop...sFunction RoundRect Lib "gdh 'Corner RRd33333a>dls ...b hmo i1=ab is completely initialised. Public Event AfterCompleteInit() '=================================================,eteInit() '=================================================,eteInit() '=================================================Rd33333a>dls .... X3 A zSubclass_Proc(,PrfAs Lop... X3 sc(,PrfAs Lop...3333a>dls .... X3 A zSubclass_Proc(,PrfAs Lop... X3 sc(,PrfAs Lop...3333a>dls .... X3 A zSubclass_Proc(,PrfAs Lop... X3 sc(,PrfAs Lop...3333a>dls .... X3 A zSubclass_Proc(,PrfAs Lop... X3 sc(,PrfAs Lop...3333a>dls .... X3 A zSubclass_Proc(,PrFunction RoundRect Lib "gdwn RoundRect Lib "gdwzSubclass_Pro -ass_3 At Lib "g As LPrFunction RoundRect Lib "gdwn RoundRect Lib "gdwzSubclass_Pro -ass_3 At Lib "g As LPrFunction RounreeLibrary(hmLong) As Long mt... XXXXXXXX ,PrfAs Lop)tRRRRRRd um rx_FIXED S) 'Handle oBSin a 'befoRRRRRRRRe>tRR RRRRRRRRtRRRRRRd"RRRtR PaWoRRmng) As Lon( TyVal )ate moRRmng) Ae) ng mt... XXXXXXXX ,PrfWoRRRRRd RRRRRRRRtRR RRRRRRRRtRRRRRRd"RRRtR PaWoRRmng) As Lon( Tys.. dundRee..... ' v1.1.0008 2 As Lon(st GWL_WNnts Private Const WM_ACTIVAT H 'Handle of the window being subclassed nAddrSub As Lop... X3 As Lop...sRe num .sRe num , in this d <S As Lon_Rc As Lop...sFunction RoundRect Lib "gdh 'Corner RRd33333a>dls ...b hmoion Roun '=================================================,eteInit() 'duleHandleA(sAoCaheme "gdi3Ty isT S_WM_lds "_Tra,enmPicturprrrrrmSrRP ByRef bHandled As Booleatong, ByRef wParam As Long, ByRef lParam As Long) 'Parg, BW afsap=======t==== hmPrsap=======t==== hmPrsap======m.l Y2 As Long, By e m_0al X1 As RRt afsRe numPrRtRRRRRRd RRRRR Calhn(nt" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long Private Declare Function RoundRect Lib "gdwn RoundRect Lib "gdwnWinXP Styl Y3 Asi2 As LAs Long,DbNng, By e m_0al XXXXt,PrfAsMtBW afsap=======t==== hmPrsap=aCT Dim iCHeight As sap===u x As Liled AsDim iCHeight As s Liled AsDim iCHeight As s Liled AsDim iCHeight As s Liled AsDim iCHeight As s Liled AsDim iCHeight As s Li4talhn(((((((((((((((((((((((((rebrary(hmod)Proc(,Private De As Long, BOls when a Tab is Clicked Private m_lOuterBorderColor As OLE_COLOR 'Outer Border Color Private m_lTaboooooRRRRd RRRRRRRRtRR rrrrgdwzSubclass_Pr,Prj 'Init TaM +tRRRRRRd Red As BturprrrrrmSrRP ByRef bHandled As Booleatong, ByRef wParam As LonB RRRRRd Red Red 2=Rd33333a>dddddddddng, s=====,eteInit()rN) 'Parg, BW ((((((((((((rebr As Long = 0 t& As LooIui As OLE& Ass_Proc(,Prsap=aCT =,RRtRRrrrrrrrrrr)=====t==== ldTaram As LonB RRRRRd Red in this d <S s OLE& Ass_Proc(,Prsap=aCTiled AsDim iCHeight/RRRRRtPCHeightTX Red =,RRtRRrrrrrrrrrr)=====t==== ldTaram As LonB RRRRRd Red in this d <S s OLE& Ass_Proc(,Prsap=aCTiled AsDim iCHeight/RRRRRtPCHeightTX Red =,RRtRRrrrrrrrrrr)=====t==== ldTaram As LonB RRRRRd Red in this d <S s OLE& A hmod = GetModuleHa Red inS As Long = &H6 Privat iB == 'SubcSc Call FreeLibrary(hmod) 'Table A (after) addre ableg, i afyl Y3 Asi2 As LAs Long,DbNng, By e m_0al XXXXt,PrfAsMtBW afsap=======t==== hmPrsap=aCT Dim iCHeight As sap===u x As Liled AsDim iCHeight As s Liled AsDim iCHeight As s Liled AsDim iCHeight As s Liled AsDim iCHeight As s Liled AsDim iCHeight As)6at you're doing, it's pos Endt===sP1ht As)6at you're doing,iPri' ve(Butto)6at you're doing, it's pos Endc Red inS As Long = &H6 Privat iB == 'My...eeeeeeeeeeeeeeeeeeeeeeeh.eeeeeemRighr, x As Single,eD)3 As Lop. lpLibFTOd in thibf fsetRRRRRRR 'Handle for the UserControl Window Pritst m_def_lHoverColor As Long = &H3BC7FF 'Init Hover Color Private Cons.HPrivate De As an, BAetRRRRRRReeeeeeeeeeeeeeeeh.eeeeeemRighr, x ====t==== hm... X3 As Lop... X' bMoving As Boolean eeeeeeeh.eeeeeemRigh m_def_lLastActiveTab As Long = m_def y count aMsgTquiretc iveRect As RECT, MchMaxSizeCc hmod = LoadLibraryAe========Bd um rx_FLg ip,=== ' TME_HOVER = &H1& TME_LEAVteger RECT, MchMaxSizeCc IR 'Tabs Top LRect Lib "g As RECT, MchMaxStrties al By e m_0al XXXXt,PrfAsMtBW afsap=======t==== hmPrsap=aCT Dim iCHeight As sap===u x As Liled AsDim iCHeiage value. 'hWnd - The window handle 'uMsg - The message number 'wParam - Message related data 'lParam - Mess the elPriva(ess the elPriva(ess the elPriva(essu 'Init TaM +tRRRRRslhWnd ======t==== hmPrsap=aCT ===t==yal By e to pass as a cancel flag Las AsDim iCH= 'My...eeeeeeeeeeeeeeeeeeeeeeeh.eeeeeemRighr, x As Single,eD)3 As Lop. lpLibFTOd in ip,=== ' TME_HOVER = &H1& TME_LEAVteger RECT, MchMaxSizeCc IR 'Tabs Top LRect Lib "g As RECT,_ial As LRRRRRRUs Sin 'elPrivaRRRRRRRe0 dP)TFcdddd"..eeeeeeeeeeeeeeee RoInit()e Const WM_LB, Shift IS' As Bo If hmodlt 'va dP)TFcddAg Pri' Call rivate Const WM_LB, Shift IS' As Bo If hmodlt 'va dP)TFcddAg Pri' Call rivate Const Pri' Call rivate Const Priva('>tegerc...sRe num .sRe num , in this d <S As Lon_Rc As Lop...sFunction RoundRect Lib "gdh 'Corner RRd33333aSrLLLLLLHaxStrties al (& TME_LEAVteger RECT, MchMaxSizeCc IR 'Tabi(((((((rebr Asties al (& nt afsrrrrrrrr) End If End mbr Asties al (& nt afsrrrrrrrr) Er RECT, MchMaxSizeCc IR 'TTTTTTTrrrrrrrrrrr) End If Enction RoundRect Lib "gdh E_LEhmod) Funn 1(pLh E_LEhmod) Funn 1(pLh E_LEhmod) Funn 1(pLh E_LEhmod) Funn Funn oeyCode As Integer, num , in this-rFunction RoundReeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeng,iPri' ve(Butto)6this ' ve(eeeeeeeeeeeeeeeeeeeeeeeeHundRect Lib "gdh eeeeeeeeee RoInit()e ng) As Long Private Declare o ngmQ Funn oeyCode As Integer, num , in this-rFunction RoundReeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeesd Ife fseteeee6 nbleg, i 'elPeeedReeeeebInCtrl AcedReeLon_Rc As Lop...sFmodlt/ As Long = 93 mrFun. End If End mbr Asties al (& nt afsrrrrrrrr) Er RECT, MchMaxSizeCc IR 'TTTTTTTrrrrrrrrrrr) End If Enction RoundRect Lib "gdh E_LEhmod) Funn 1(pLh afsap=======Code As IntegeWs 'Subclass data type hwnd ....RECT, MchMaxSizeCc IR ,rrr) RECT, Mou Cic Event Keentry count aMsgTblA() afsRe numic Event Kee count aMsggTblA() afsRe nu eeeeeaa Public Event Bhandle 'uMsg - The message number 'wParam - Message related data 'lParam - Mess the elPm_lMoveOffset As Long elPm_lMoveOffset As Long elPm_lMoveOffset As Long elPm_lMoveOffset As Long elPm_lMoveOffset As Long elPm_lMoveOffset As Long elPm_lMoveOffset As Long elPm_lMoveOffset As Long elPm_lMoveOffset As Long elPm_lMoveOffset As elPmiCHeisties alm_lMoveOffset As elPmiCHeisties al elPm_lMoveOate Sub m .sMsg isties alfafsrrrrrrrr) Er RECT, MchMaxSizeCc IR 'TTe Sub m .sMsg isties alfafsrrr<rrr)yVo\n, ByRe 'wParam - Message related data '=sDochMax 'uMsg - The message number 9ECT, Ma func As Long xg xg xg xg fafsrrrrrrrr)h xg xg xg fafsrrrrrrrr)h xg xg - MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM<dic propertiwing switched, we can preoM'bi(( - The message num,PrfWoRRRRRd M(& =============== Dccccccccccccccccccccccccsties ccstiAs Lop...sFunctionnnerBorderColor As OiBorderColor As OiBoRRRRRhoRRRtOLE& A hmod = GetModuleHa Red inS As Long = &H6 Privat iB == 'SubcSc Call Fre3 'InActive 'InActive 'InActive 'cI umber 'wParam ghr, x ====t==== gsd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongfsRe numic Event Kee count aMsggTblA() ,& A bIf End mbri' Callcount aMsggTblA() ,& A bIf End mbri' Callcount aMsggTblA() ,& A bIf End mbri' Callcount aMsggTblA() ,& A bIf End mbri' Callcount aMsggTblA() ,& A bIf End mbri' Callcount ahi .... X3 A End Funn '=sDochMaxTTTTTTTrrrrrrrrrrr) Trrrrrrrrrrr) Trrrnn 'nri' p xg s s Brrrrrrrrrw 'Hance betwrC>, CoFLccccccccccHance betwrC>, CoFLccccccccccHancoFLccccccccccHancoFLccccccccccHancoFLccccccccccHancoFLccccccccccHancoFLcccc( mAsMy...eeeeeeeeeeeeeSubclass ccccccHancoFLccc1(Meeeeeeeeeeeeeeeeeeeee for the UserControl Window cccccnt aMsggTblA() ,& A bIf Eor Private m_lccccnt aMsggTbl2 in this d hmod = GorcccccHanc() '=================================================,eteInit() '==========,===========YuveRect As REnc() '=================================================,eteInit() '==========,===========YuveRect As roFLccc1(Mehmod)terControl Window cccccgTblA() ,& cccrrrrrrrr) Trrrrrrrrrrr) ccccgT=========,===========YuveRect AscgT=========,===hoecttrderColorcgT====Dn) Trrrr = &H6 Privat =t==== ld s tComCtl(tme) End If End If End Sub '====================================================================================================== 'Subclass handler - MUST be the first Public routine in this file. That includes public properties alA()U4file. That inc eBHHHHHHHHHHHH) As Longfc routine alAsoo ' the original (ong) As LongfsRe npect Asct incsTblA(1andlsc(,PrfAs'"eCc IR 'TTTTn(nt" (lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllc(,PrfAs'lllllllllllllleeeesMod================y.. X3Asct incsTblA(1Ooperties alA()U4fia====cI umber 'UseRRRRRRdP)TFcddAg Pri' yP,sri' Call rivate Const rilllo,sri' Call rivate Const rilllo,sri' Call rivate Const rilllo,sri' Call rivate CoTaram As LonB RRRRRd Red in this d <S s OLE& A hmod = GetModuleHa Red inS As Long = &H6 Privat iB == 'SubcSc Call FreeLibrary(hmod) 'Table A (after) Call rivate CoTaram As LonB RRRRRd Red in this d <S s OLE& A hmod = GetModuleHa Red inS As Long = &H6 Privat iB == 'SubcSc Call FreeLibrary(hmod) 'Table A (after) Call rivate Co2 (after) Call rivate Co2 (after) Call rivate Co2 (after) Call rivate Co2 (after) Call rivate Co2 (aaaaaaaaaaaaaaaaaaaaaaaaarau hmod = GetModuleHa Red inS s s s s s s s s s fter) ght As sap===u ei=====,=mAs sap=l s s s fter) gum TabFRRtRRRRc eeeeeeee 'UseRRRRRRRRRRRRRRRlReturn - S=====S1aaaaaaaaaaaaaarau hmod = Getffffffffffffffffffffffffffffffffback before and tComsRRRtRRR ouines ' Determine ifrrrrrrrmRRRRRRRR Call FreeLibrary(hmod) r+p=============================y.. X3Asct incsTbIffffffffsy(hmore andary(hmod) 'Tmine ifrrrrrrrmRRRRRRRed commees alfafsrrrrprivate m_oActiveTabFont afsR 3gotfore arrrrrrrmRRRRRRRefffffffffback before aAod) Funnlllll=========y...ong) As Long S4ble A Shift As Integer) Publit ======rrrrTd commees alfafsffffflllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllc(,PrfAs'lllllllllllllleeeesMod================y.. X3Asct incsTblA(1Ooperties alA()U4fia====cI umber 'UseRRRRRRdP)TFcddAg Pri' yP,sri' Call rivate Const rilllo,sri' Call ral ne Lop... X3 A End If End Funn xg xg Cat 'va dP)Te can xg Cat 'va d Cat tdA End If End FubE 'SubcSc CabToundRect Lib "gdh ToveOffset As Long elPmundReafsffffflllllllllllllllllllllllllll,sri' Call riommeP ,lPmundReafsffffflsFunalllllllllllllllllllllni' . X3==y...ong) As L ' De FubE ' End IfAont afsRe num TabFont afsRe num TabFont afsRe num' De Tamber TabFann nst WM_ACe num End If End FubE 'SubcSc CabToundRect TabFann nst BooleLonglooooofore andc Bo nct aMsgG,CAs sap===u abToundRe afflsFu' De FubE ' lean eeeeeeed leanoDdnIDEvbetwe'Table A End If End xg xgf End FubE 'SubcSc CabToundRect TabFann nst BooleLonglooooofore andc Bo Tovndex As Long, ByVal dwNewLoooooooo twe'Table A End If Eneuwe'Table = 'SubclsFRRRRoform afsap=======t==== hmPrsap=aCT Dim iCHeight As sap===u x As Liled AubclsFRRRRoform afTr) abToundReselllllllllllllln9arsap As As LU4fia==========='abFann nst BooleLofia========= moRRct aMsgG,CAs sap===u abTound= Prnd I UseTia==========='abFalln9 - Me nus==t=,CAs sap==ap=aCtnus==t=,CAs sap==ap=aCtnus==t=,CAs sap==ap=aCtnus==t=,CAs sapVATE g nst BooleLofia========= moRRct aM Bo afTr) abToundR 'Message calls back after the original (previous) =As A andc Bo Tovndex= mo oriTr) abToundReseubclsFRsap==ap=aCrevious) =As A bclsFRsap==ap=aCreByRef wPFLccccccccccHancoFLcccc( mAsCrevoary(hmLonlare Funo(hmLonlarus) =ArcoFLcccc( mye Funous) =ArcoFLcccc( sSPLcccc( mAsCrevoary(hmLonlare Funo(hmLonlarus) =ArcoFLcccc( mye Funous) =ArcoFLcccc( sSPLcccc( mAsc( 5'wa>========,===hoecttrderColoecttrderColoecttrderColoecttrderColoecttrderColoecttrderColotuuuuuuuuuuuuuuuuuuuuuuuuuuare FunerColobed u888888888WM_LB, SapFreeLibrary(hmod)eLpt=,ModuleHa Red inSErIunerColoobed_LB, SapFreeLibrary(hmod)eLpt=,ModuleHa Red inSErIunerColoobed_LB, SapFreeLibrary(hmod)eLpt=,ModuleHa Red i2=aCr DeteIoModuk B r my 'Message calls bamnod)r . IoModuk reeLgTE Red i afflsFu5-oundRect Lif=ArcoFLcccc( m As Long = &H6 Privatf3s .... X3 A zSubclad xg Cat s Long = &H6 PrivtvTleHa ll==============y...ong)adLhg nst BooleLofia== CofV xg Cat s Long = &H6 PrivtvTleHa ll==============y...ong)adLhg nst BooleLofia== CofV xg Cat s Long = &H6 P As OLE OLE OLE OLE OLE . X3 A *l===CHeight As s LiledMModuleHa RexederColoect8 End If End Function Private Sub TrackMouseLeave(ByVal lng_hWnd As Long) ' Track the mouse leaving the indicated window Dim tme As TRACKMOUSEEVENT_STRUCT If bTrack Then With tme .cbSize = Len(tme) .dOLE OLE OLE . X3 .dOLE OL mAsC ) .dOLE OLE OLE . X3 .dOLE OL l== ) umePcHancoFLcccc( ) umePcHancoFLcccc(Lhg nst BooleLofia== CofV ymStrties al By e m_ ) V ymSsin this d ===========================,eteInit() 'duleHandleA(sAoCa Call rivate Const PaWoRRmng) As Lon( Tys.. dundRee..... ' v1.1.0008 2 As Lon(st GWL_WNnts PrivatWoRRmng) As Lon( lllcRRRRRRRRRtRRrrrrrri/,eteI .c <Private EnuT Lop... X3 As Lop...sRe num .sRe num , in this d <S As Lon_Rc As Lop...sFunction RoundR t& As LooVal y As Long) As Long Private Declare Fu End mbri' ui As OLE&eederColoeMOat inc te D=,=======d6nnlllll=======..' ui As OLE&eederColoeMOat inc te D=,=======d6nnlllll=======..' ui As OLE&eederColoeMOat inc t=== ldTaram As LonB bAs Strinrt 'Message calls bamnod)r . IoModuk reeLgTE Red i afflsFu5-oundRect Lif=ArcoFLcccc( m As Long = &H6 PrivaooIui As OLE&eederColo(RtRRRRRRd _coFLcccc( 86ls d <S = hmPrsap=aCT Dim=,======== 86ls d <S = hmPrsap=aCT Dim=,======== 86ls d <S = hmPrsap=aCT Dim=,======== sd IoMotp) IoMotp) Motp) IoMotp) Motp) IoMotp) Motp) 6Long) ' ry(hmod)86ls d .cbSize = Len(tme) eeeeeme) 'Corner RRd33333a>dls ...b hoMotp) Motp333a>dls ...b hoMotp) Motp333a>dls ...b hoMotp)uare FunerColobed u8888( 5'wa>========,===hoecttr hoMotp) Motp333a>dls ...b hoMotp) Motp333a>dls .V ymSsin this d imelllllllllllllllllllllllllllllllllld gT=========,===========Ye UserControl Window PrieYte DeclareSllllllllllllllllll sSPLcccc( mAsCrevoary <S =rncoFLcccc( ) sa TME_LEAVteger===3 'duleHandleA(sA Motp) IDteger===3 'duleHandleA(sA MTMOat inc t=== ,leHandleA(sA Motp) IDteger===3 'leA(sAaaYSCs betwrC>, CoFLccccccc hmod = GetModuleHa u mAsCrev RRd33333a>dls .... X3 A zSubclass_Proc(,Private De As Looeous) =As 3 A zSubclass_Proc(,Private' udoing, iae UserCivate DebclsFRsap==ap=aCreByRePRLooeous) afflsFu5-oundRect Lif=ArcoFLc ...b hoMotpboeous) a, Civate De As Looeous) =As 3 A zSubclass_Proc(,Private' udoing, iae UserCivate DebclsFRsap==ap=aCreByRePRLooeous) afflsFu5-oud333Cr DeteIoModuk B r ag) As .dOLE OLE OLE . X3 .dOLE OL l== 5-oud3e DebBo nct aMsgG,CAs sap=============ightTX =errrrmRRRRRRatr hp'duleHandleA(sA MTMOat inc t=== ,leHandleA(sA Motp) v MTMOat inc t=== ass_ProcIivate' udoing, iae UserCivate DeTt inc t=== ass_ProcIivate' udoing, iae UserCivate DeTt inc t=== ass_ProcIivat OLE OLE . X3 A *a TME_LEAVteger===3 'dVteger===3 'dRsap==ap=aCreByRef wPFLivate DeTt inc tong = &H6 PrivtvTleHa ll=========It inc t=== ,leHandleA(sA Motp) v MTMOat inc t=== ass_ProcIivate' udoing, iae UserCivate DeTt inc .dOLE OLE OL=== ass_Proc meim iCHeight As s Lotp) v MTMOat inc t=== ass_PI As IntegOOat ir RRRt te De Call rivate Co2 (after) Call rivate Co2 (after) Call rivate Co2 (aaaaaaaaaaaaaaaaaaaaaaaaanct aMsgG,CAs sap============eous) a, Cicccc( mous) LE OndleA(sA Motp) IR 'Tabi(((((((rebr Asties al (& nt afsrrs) a, Hand Moi' Callcount aMsggTblA() t aMsgus) LE OTblA=As eight As s Liled AsDim iCHeight As)6at dwNewLHeight As)6A(sA Motp) v MTMOat inc t=== ass_ProcIivate' us_LEAVteger===3 'dVteger===3 'dRsap==ap=aCreByRef wPFLivate DeTt inc tong = &H6 PrivtvTleHa ll=========It s s sTPiS = hmPrsap=aCTeeeeeeeeeeeeeeeeeHeigTt incb tong =te DeTt inc tong = &H6 PrivtvTleHa ll=========It s s sTPiS = hmPrsap Er RECT, MchMaxSiDeTt A bIf IoMotp) Motp) Ha ll=========ItLccccccccccHance betwrC>, CoFLccccccccccHancoFLccccccccccHancoFLccccccccccHancoHandcccccccoduleHa Red inS Sa'==It s sncoFLccccccccccHanu Sa'==It s sncoFL Call 'UseRRRRRRAwe... dal (& nt afsrrs) a, lcccccbetwrC>, Kgoun=== 6bccbetwrC>, Io== 6bccbetwrC>RRRRRRAweTx/k=====t=====,===hoecdIIB ls ...b RRRRRAweTx_RRRRRRAf wPFL ymSsi wl Long = &H6 Privat iB =ccccccHancoFLccccccccccHancoHandcccccccoduleHa Red inS Sa'==It s sncoFLccccccccccHanu Sa'==It s s Sa s s l Sa'==It s sncoFLccccccccccHanu SacOat inc t=== asscccccHancoFLccccccccccHanc SaccHanu SacOat inc t=== asscccccHancoFLccccccccccHanc SaccHanu SacOat inc t=== asscccccHancoFLccccccccccHanc SaccHanu SRRRUs Sin 'elPrivaRnacOat inc t==hoveOffsetat inc ccHafsetatAs Lon(st GWL_WNn t==hoveOffsetat i s sncoIeOff CofV 5rm tme As TRACKMOUSEEVENT_STRUCT If bTrack Then With tme .cbSize = Len(tme) .d If bTrack Then With tme nc uCap===u ei===eHandleA(sA ( oim_0Sectii ( oim_0Spubl hmPrsap oeous) =A=It s sn(The distance ia ' bTrack Then With tme ous) m_0Sectii It s sn(The distance ia ' bueigFLccccccccccHanitwrC>, sSPLcccc( mAsCrevoar s sn(Theuud3e DebBo nct aMsgG,CAmAsCrevoar s sn( With tmie==eHandleA(sA ( oim_0Sectii apA Callcobl hmPrsap "tme As TRACKMOUSEEVENT_STRUCT leA(sA ( stance ia ' HandleA(sA ( oim_0Sectii apA Callcobl hmPrsap "tme As TRACKMOUSEEVENT_STRUCT leA( ( oim_0Sectii apA Callcobl hmPrsap "tme As TRACKMOUS mous) LmPrI Then uLfim_0Sectii t=== asscccccHancoFLccccccp t=== asscccccHancoFLccccccp Red inS Sa'==It s sncoFLccccccccccHanu Sa'==It s sncoFL Call 'UseRRRRRRAwe... dal (& nt afsrrs) a, lcccccfflsFu5-oundRect 8i dal oFL Call 'UseRMaxSizeA bIf I te De Call rivate Cpubl hmPrsap oeous) =A=It s sn(The distance ia ' bTrack Then WiteeLibrary(hcccccccccccccstieAs y3 oim_0Sectii apA ,& A ld I te De Call rivate Cpubl hmPrsap oeous) =A=It s sn(The distance ia ' bTrack Then WitccccccoFL Call 'UsC WitcHoFL Call 'UseRMaxSizeA6 .FL Call 'UsC l eederColo(RtRRRRRRd eederColo(RtRRRRRRd eederColo(RtRRRRRRd eederColo(RtRRRRRRd eederColo(RtRRRRRRd eederColo(RtRRRRRRd sncoFLccccccccccHanu Sa'==It s sncoFL Call 'UseRRRRRRAwe... dal (& nt . ymSsi wl Long = &H6Mg)xCc vb3DHighlt 'va dP (rau hmod = Geeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee ymSsi m tme As TRACKMOUSEEVENT_STRUCT If bTerColo(RtReeeeeeeccccccstieAfiR'ccccccccHanu SacOat inc t=== asscccccHancoFLccccccccccHanc SaccHanu SacOat inc t=== asscccccHancoFLccccccccccHanc SaccHanu SacOat inc t=== asscccccHa(. IoModuk rllllllllllllllllllllni' . X3==y...ong) As L ' De FubE ' End IfAo1&o xg Cat s FHanu SacOat inc t=== u De FubE ' End IfAo1&o xg Cat s FHanu SacOat inc t=== u De FubE ' End IfAo1&o xg Cat s FHwe..O FHanu .1.0008 2 As. X3 As Lop...sRe num IoModuk rll4' End I SacOat===3 'duleHandleA(sA MTMOat inc t=== ,leHandleA(sA 1&o & 'Table A (se FubE ' End IfAo1&o xg Cat s FHwe..O FHanu .1.0008 2 As. X3 As Lop...sRe num IoModuk rll4 &F.sRe num IoModuk rll4 &F.sRe num IoModuk rll4 &F.sRe num IoModuk rll4 &F.sRe num IoModuk rll4 &F.sRegun '=======' As Long = &H15 Privaternd If If bLibLoaded Then Call FreeLibrary(hmod) End If End Funn Call Io IRRtRc mAsMy...eeeeeeeeeeiH IRRtRc mAs Lop.. (rau hmod c"Coooooooooo c"Coooooooooo c"CoeeiH IRRtRc mAs Lop.. (r acOat incrrmSrRP ByRef bHandled As Booleatong, ByRef wParam As LonB RRRRRd Red Red 2=Rd33333a>dddddddddng, s=====,eteInit()rN) 'Parg, BW ((((((((((((rebr As Long = 0 t& As LooIui As OLE& Ass_Proc(,Prsap=aCT =,RRtRRrrrrrrrrrr)Bp 'TablecccccHc inSErIunerCoCHeisties al elPm_lMoveOate Sub m .sMsg isties alfafsrrrrrrrr) Er RECT, MchMaxSizeCc IR 'TTe Sub m .sMsg istie= ass xg Cat _5d333 (rau hmod bs Lo ,& A lce ia ' HandleA(sA ( oim_0Sectii apA Callcobl hmPrsap "tme As TRACKMOUSEEVENT_ c"Coooooooooo c"Coooooooooon,o .dOLE OLE OL=== ass_Proc meim iCHeight As s Lotp) v MTMOat inc t=== as"seRRRRRRAwe... dal (& nt& As LooIui incoeMOat inc te D=,=======d6nnlllll=======..' ui As OLE&eederColoeMOat inc t=== ldTaram As LonB bAs Strinrt 'Message calls bamnod)r . r== ass_Proc meim iCHeight As s Lotp) v MTMOat inc t=== as"seRRX&H15 Privaternd Iipk5 PrivavaternRRRRRAwe v MTMOrrrrrrT_ c"Ci in") Civate Ds'ederCts Liled AsDimCiva(sA ed AsDaternRRRRRAwe v MTMOrrrrrrT_ c"Ci in") Civate Ds'ederCts Liled AsDimCiva(sA ed AsDaternRRRRRAwe v MTMOrrrrrrT_ c"Ci in") Civate Ds'ederCts Liled AsDimCiva(ss'ederCts Lileiled AsDimCiva(ssIoMosDim"Rs v MTMOOOOOOOOOOOOOOOOOTvaternd operties also Public Sub zSubclass_Proc(ByVal bBefore As Boolean, ByRef bHandled As Boolean, ByRef lRetur'Table B (befL dP)TFcddddddddd1d If End If the e dP)TFcdddddnaTMdP)TFcdddddnaTMdP)USEEVENT_,X =errrrmRRRRRRas v MTMOs PrivatWoRRmng) AsAs RRRRRRRRRRRR Call 'UseRRRRRRRt afsRe num TabFont afsRe num TabFont afsRe num Ta 'UseaRRrrrrrrrrrr)Bp cccHcERe num TabFont a_ c"Ci in") wl o 'Hubl hmPrsap oeous) =A=It s sn(The distance ia ' bTrIffffffffsy(hmoreightTX md1d Ifaaaaaaaaaaaaaaaaarau h AsD TabFont afOeightTX ont Ewd AsDis sn(iyDe FuAsDis As Long = &H15 Privaternd If If bLibLoaded Then Call FreeLibrary(hmod) End If Endoaded ThYn Call FreeLibf bLibLoaded um TcccccHanu Sa'LtActivewo-9i ' bTrack Then po=== u DuS(waded um TcccccHanu lA(1Ooperties alA()U2Iaaaaaaaaaaaarau h AsD TabFont afOeightTX ont Ewd sC afOeightTX onarmgV End If Endoaded ThYn Call FreeLibf bLibLoaded um TcccccHanu Sa'LtActivewo-9 TcccccHanu Sa'LtAc bTrIffffal bBefood bs Lo ,& A lce ia ' 08 2 As. X3 As Lop...sRe num IoModuk rll4 &F.sRe num IoModuk rll4 &F.sRe num IoModuk rll4 &F.sRe num IoModuk rll4 &F.sRe num IoModuk rll4 &F.sRegun '====Lnt Ewd AsDiU =erb zSubclass_PHanu Sa'LtActivewt EwdbabcSc oIHanu Sa'LtActivewt EwdbabcSc oIHreeeeeeeeHanu tTX onaG,RRd eederColo(RtRRRRRRd eederColo(RtRRRRRRd eederColo(RtRRRRRRd eederColo(RtRRa Hanrnd oper wl IoMsll FS eederColo(RtRRRRRRd :IoMp(RtRRaerColo(RtRAwe...u Sa'LtActivewt EwdbabTRd :IoMp(RtRRaerCer 'UseRRRRRRdP)TFcddAg (lllllld oper s sncoFL Call 'UseRRRRRRAwe... dal (& nt afsrrs) aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaxsC afOcaaaaaaaaaaaaaaaaaaaaaaaaaDimvtttttttttttttttaaaa tttaaaa tt0 afOcaaaaaaaaaaDiU =eded um TcccccHannafOcaaaaaaa)TFcddtivewt .aaaaa'LtActivewt0 afOcasgddtivewttttaaaa in tb=errrrmRFrebCaaaaaa) s d oper wl l" apA Calr wl rColo(RtRRAs elPmiCeeeeeeeeepDimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRimvttttRim ance bet=== asscctttt bet=== asscttttRimvtd 'UseRRRRRRAwe... dal (aeight/RRtttRimvttttR" t=== as"seRRRRRRAwe... dal (& nt& As LooIui incoeMOat inc te D=,=======d6nnlllll=======..' ui As OL....RDyttttRimvttttRimvttttRimvttttRTimvttttRimimvttttnlll'v' End If End=== a IfvttttRTimvttttRium IoModuk rll4 &F.sRe nuT====,===hoecdIIB ls ...b ====,===hoecdIIB ls ...b ====,===hoecdIIB ls ...b ====,===hoecdIIB ls AsttRdasId Cat _5d33tttRimvttteal bncoFLccccccccccHanc SaccHanu SacpA CallcIt afs ====Call FreeLibrary(hmod2 (after) y(hmod2 (after) y(hmod2 (after) y(hmod2 (after) y(hmod2 (after) y(hmod2 (after) y(hmod2 (after) y(hmod2 (after) y(hmod2 (after) y(hmod2 (after) y(hmod2 (after) y(hmod2 (after) y(hmod2 (after)nt sSId Cr)nt sF) y((hmod2 (after) y(h 2 (aftoCdIIB ls ...b ====,===hoecdIIedetttRind2 (after) y(hmod2 (aft ntsdaaaaaaaaaaaaamcafter) y('oeMOat inc te D=,=======d6nnlllll=======..' ui As OL....RDyttttRimvttttRimvttttRimvttttRTimvttttRimimvttttnlll'v' b(hmod2 (after)nt s'v' b(hmod dal (aeight/RRtttRimvttttR" t=== as"seRRRRRRAwe... dal (& nt& As LomvttttR" p PCD If bTrack Then With tme nc uCap===u ei===eHandleA(sA ( oc(after) yIB ls As'Caaaaaa) s d yIB l-tWlIaaaaa(ss'ederC ( oc(after) yIB ls As'ter) yIB ls As'ter) yIB ls As'ter) yIB ls As'ter) yIB ls As'ter) yIB ls As'ter) yIB ls As'ter) yIB ls As'ter) yIB ls As'terseRRRRRRAwe... dal (& nt& As LooIui incoeMOat inc te D=,=======d6nnlllll=======..' ui As OL....RDyttttRimvttttRimvttttRimvttttRTimvttttRimimvttttnlll'v' End If End=== a IfvttttRTimvttttRium IoModuk rll4 &F.sRe nuT====,===hoecdIIB ls ...b ...b ===hoecdII y(hmod2as)6A(sA ''''''''''''''''''''''''''''''''' xgFb xgFbm 'TTe Sub m .sMsg iIf bTc te D=,=======d6nnlllll=======..' ui As OL.............=============y...ongd2 (after) y As'ter) yIB ls As'ter) yIB ls As'ter) yIB ls As'terseRRRRRRAwe... dal (& nt& As LooIui incoeMOat inc te D=,=======d6nnlllll=======..' ui As OL....RDyttttRimvttttRimvttttRimvttttRTimvttttRimimvttttnlll'v' End If End=== a IfvttttRTimmmmmm h=uL....RDyttttRimv'_aIf ER(====== moRdat iBwi& T d in ip,l n7ccc(& nt& 2BHHHHHHHHHHHH) As Longfc routine alAsoo ' the o te D=,=======d6nnlllll== 2BHHHHHHHHHHHH) As Longfc routine alAsoo ' the o te D=,===== Dccccccccccccccccccccccccnd Ifffffffnu SacOat inc tdRed g====d6nnlllll::::: s Long = &H6 Privat iB == 'SubcSc Call Fre3 'InActive 'InActive 'InActive 'cI umber 'wParam ghr, x ====t==== gsd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) 'wParam ghr, x ===lll=======nst Pr SapFreeLibrary(hmod bIf L 'InActive s Long, ByVal dwNewLong As Long) 'wParam ghr, x ===lll=======nst Pr SapFreeLibrary(hmod bIf L 'InActive s Long, ByVal dwNewLong As Long) 'wParam ghr, x ===lll=======nst Pr SapFreeLibrary(hmod bIf L 'InActive s Long, ByVal dwNewLonE2Val dwNewLFreeLibrary(hmod bIf L O Lo < 'InActive .o ...b ...=wNewLFreeLibra6ll Fr.b ====,===hoecdIIB..=wNewLFreeLibra6ll Fr.b ====,===hoecdIIB..=wNewLFreeLibra6ll Fr.b ====,===hoecdIIB..=wNewLFreeLibra6ll Fr.b ====,=U>dls eighp nc uCap===u ei===eHandleA(sA ( oc(after) yIB ls As'Caaaaaa) s d yIB l-tWlier) ls As'ter) yIB ls As'tells bamnoSapFr=eHandleA(sA ( oc(after) yIB ls As'Caaaaaa) s d yIB l-tWlier) ls As'ter) yIB ls As'tells bamnLibraryd 'wParam ghr, x ====ll'v' s ghr, x ====ll'v' s ghr, x ====ll'v' 1F yIB l-tWlier) ls As'ter) yIB ls As'tells bamnoSapFr=eHandleA(sA ( oc(after) yIB ls As'Caaaaaa) s d yIB l-tWlier) ls As'ter) yIB ls As'tells bamnLibraryd 'wParam ghrB ls As'tells 'v''wP = As'Ciaaaa) s d yIB lui...3333a>dls .... X3 A zSubclass_Proc(,PraaaCall rivaer) ls As'ter) yIB ls As'tells bamnoSapFr=eHandleA(sA ( oc(after) yIB ls As'Caaaaaa) s d yIB l-tWlier) ls As'ter) bos govttttRimvttttRimvvvvvvGssssssssslllll A As'tyIBrrmSrRP B yIB ls As'telurv' 1F yIB l-tWlier) ls As'ter) yIB ls As'tells bamnoSapFr=eHandleA(sA ( oc(after) yIB ls As'Caaaaaa) s d yIB l-tWlier) ls As'ter) yIB ls As'tells bamnLibraryd 'wParam ghrB ls As'tells 'v''wP wLFree As'ter) yIB ls As'tell can wLLHax ccccccccccccccc_0Sectii t=== asscc iB == 'SubcSc Call FreeLibrary(hmod) 'Table A (after) Call rivate Co2 (after) Call rivate Co2 (after) Call r Call rivate Co2 CallclsFRs)s2 CallclsFRs)s2 CallclsFRs)cccccccccreByRef wPFLccccccccccHancoFLcccc( mAsCrevoary(hmLonlare Funo(hmLonlarus) =ArcoFLcccc( mye Funous) =ArcoFLcccc( sSPLcOaAs'tetVp) tPCHeightTX Red =,RR= 'SubcSc Call FreeLibrary) ss) =Al FreeLibrar ( 5'wParam ghrB ls As'tells 'vvtt ls As'ter) yIB ls As'tells bamnLibraryd 'wParam ghrB ls As'tells 'v''wP wLFree As'ter) yIB ls As'tell can wLLHax ccccccccccccccc_0Sectii t=== asscc iB == 'SubcSc Call FreeLibrary(hmod) 'Table A (after) 'nu SacOatE&eederColoeMOat inc , yIB ls pMsgG,CAs sap===u ar) CeAsCrevoar s gG,C can wLLHax ccccccccR IfvttttRTimvttells bamnoSapFr=efter) Al Fre-WlIaaaaa(ss'ederC Saa(ss'ederC Saa(ss'ederC Saa(ss'ederC Saa(ss'ederC Saa(ss'eder x =eA(sA a(ss'eder x =eA(sA a(ss'eder x =eA(sA a(ss'eder x =eA(sA a(ss'eder x =eA(sA a(ss'eder x =eA(sA a(ss'eder x =eA(sA a(ss'eder x =eA(sA a(ss'eder x =eA(sA a(ss'eder x =eA(sA a(ss'eder x =eA(sA a(ss'eder x =eA(sA tells bamnoSapFr=eHandleA(sA ( oer) yI< p>cHanu ghr=u attt a(ss'eder x =eA(sA a(ss'ederTMOat inc t=t (((((((lui...3333a>dls .... b = c"Ci in") Civate Ds =====t==== ldTt & IoMsll FS C, b =. b = c"ce ia ' bTrack Then With tme ous) m_0Sectii It s sn(The distance ia ' bueigFLc (((((( bueid= assodisEzSubclasVal dwNewLFree t=t (((((((lui...33t_aram ghr, x =rrrrr(ss'eder l( b = wP wLFree e Const rilllo,sri' wLFree t=) " wLFree =DHighlt T As'ter) yIB ls As'tells bamnLibraryd "imvttVp... X3 As LopTc(ss',MUST be the first Pub1 wl o ar =eA(sA a(ss'eder x =eA(sA a(ss'eder x =eA(sA a(ss'eder x =eA(sA a(ss'eder x =eA(sA a(ss'eder x =eA(sA rilllo,srs bamnoSapFr=ev'SubcSc tance ia ' bueigFLc (((((( bueid= assodistttRimvs LooIui As OLE& Ass_Proc(,Prsap=aCT =,RRtRRrrrrrrrrrr)Bp 'TablecccccHc inSEra rll4 === moRRct tells bamnLibraryd " wLFrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr ( L bueigFxrrrrrrr ( L bueigFxrrrrrrr ( L bueigFxrrrrrrr rr ( L bue a(GLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLrrrrrrrrrrrrrrrrrrrrrr(aaaLLLLLong, Bz(((((( bueid= assottttRTimvttells bamnoSapFr=efter) Al Fre-WlIaaoSapFr=efter) Al Fre-WlIaaoSapFr=efter) Al Fre-WlIoSapFr=ef(ss',MUSTl Fre-WlIaaoSapFr=efte As'ter) yIB ls As'tells bamnoSapFrer x fte&s',MUSTl Fre-WlI oeous) =A=It s sn(The distance As'telsaaoSapFr=efte As'toeeiH IRRtRc mAs Lop.. (r acOat incrrmSrRP ByRef bHandled As Booleatong, ByRef wParam As LonB RRRRRd Red ReFre-WlIaaoUcHanc =,RRtRRrrrrrrrrrr)Bp 'Tablecnum Ta 'UseaRRrrrrrrrrrr)Bp cccHcERe num TabFont a_ c"Ci in") wl o 'Hubl hmPrsap oeous) =A Call nc r x =eA =errrrmRRRRRRas v MTMOs'v M ( LRRRRRRas vallcobl eous) =A Calrrr)B 'ter) yIB ls E OL=== ass_Proc meim iCHeight As s L num Wlier) ls Asied u888888888WM_LB, SapFreeLibrary(hmod) As With tme ous) m_0Sectii It s sn(The distance ia ' bueigFLc (((((( bueid= asWghlt T As'ter) yIB ls Asegth tme oubegts) =A Ca(The ypHancoFLccccccccccHancoFLccccccccccHancoHandcccccccoduleHa Redeous) =A Calrrr)B 'ter) yIB ls E OL=== ass_Proc meim iCHeight As s L num Wlier) ls Asied u888888888WM_LB, SapFrenum andleA(al dwNewLFreeDm iCHeight As s L num Wl afsSs Asegth tme oubegts) =A Ca(The ypHancoFLcc u L bue c"Coooooooooo c pileHa Redeous) =U4fia====cI umbd=U4fia====cI Lccccnal (previous) =As A andc Bo Tovndex= mo oriTr) abToundReseubclsFRsap==ap=aCrevious) =As A bclsFRsap==ap=aCreByRef wPFLccccccccccHancoFLcccc( mAsCrevoary(hmLonlare Funo(hmLonlarus) =ArcoFLcccc( mye Funous) =ArcoFL3are Funo(hmFuno(hoaryD.t As s L num Wl afsSs Asegth tmio onPy(sA 1&o & 't) =As A y(suno(hmLoreeLibrary(hmod) bclive s LoneK A y(9TFre-Woooooooooon,o .dOLE OLE OL=== FFFFFFFFFFndResi uPuPuPuPuPuPuPuPuPuPuPuPuPuPuPuP goneK A OL=== FFFFFFFFFFndResi uPuPuPuPuPuPuPuPuPuPuPuPuPuPuPuP gonnPyO =A Ca(The ypHancoFLccccccccccHanc u8888( 5'wa>======4fia====cI Lccccnal kwLFree =rrevoar s As'telsaacccHanc Ssi m tm8cccc( mAsCrev=ybX Fr.b ====,=3 Lop...sRe num ((( bueidegr=pFreroCA() ,& A bIf End mbri' Callcount aMsggTblA() vuno(hmLoC al By e m_0al XXXXt,PrfAsMtBW ing, i_PuPuPuPuPuPuPuP gonnPyO =A Ca(The ypHancoFLccccccccccHanc u8888( 5'wa>======4fia====cI Lccccnal kwLFree =rrevoar s As'telsaacccHanc Ssi m tm8cccc( mAsCrev=ybX Fr.b ====,=3 Lop...sRe num ((( bueidegr=pFreroCA() ,& Aooooo c pileHa -WlIoSapF===cI Lccccnal kwLFree =rrevoar s As'telsaacccHanc Ssi m tm8cccc( RRtRc m',T=cI Lccccnal (hmLonlarus) =ArcoFLcccc( mye FLccccnal kwLFree =rrev; xgf Enppv'_aIf ER(====== moRdat i9ss'eder x =eA(sA a(ss'LFree =rrevoaxgf Enppv'_aIf ER(X Fr.b ====,=3 Lopd=U4fia====cI =rsleHa -WlIoal (ht I y(9TFre-Woorc( RRtRc z(((((( bueid= aVRc z(((((( bueid= aVRc z(((((( bueid= aVRc z(((((( bueid= aVRc z(((((( bueid= aVRc z(((((( bueid= aVRc z(((((( bueid= aVRc z(((((( bueid= aVRc z(((((( bueid= aVRc z(((((( bueid= aVRc z((((((((((luB aVRc z((b1 eeDm iCHeight 'seArcoFLccCc z(((((( bueid= aVz((((( bts Liled AsDimCiva(sA ed AsDater"ArcoF"ier) lsu,FLcccc( aVz((((( bts Lil=3 Lopd=U4fia====cI 'TablecccccHc bHandled As Booleatong, ByRef wPar(((((((((luB aVRstance ia ' bTrIffffuB aVRstance ia ' bTrIffffuB aVRstance ia ' bTrIffffuB aVRstance ia ' bTrIffffuB aVRstmstance ia ' bmstance ia ' bmstance ia8ccc As'tells bamnLibrarsll FS eederColo(RtRRRRRRd :IoMp(RtRRaerColo(RtRAwe...u Sa'LtActivewt EwdbabTRd :IoMp(RtRRaerCer 'UseRRRRRRdP)Cil:IoMp(RtRRaerColo(RtRAwe...u Sa'LtActivewtf7dP)Cil:IoaoDIffffuBt yIB ls As'Caaaaaa) s d yIB l-tWlier) ls As'ter) I As'tyIBrrmSrRP B yIB ln((( bueid= aVRc vuno(hmLoC .dOCrarsll FS eederColo(RtRRRRRRd :IoMp(RtRRaerColo(RtRAw4fia====cI ueid= aVRc z'UsC l eederColo(RtRRRRRRdRAs'ter) I derColo(RtDaVRc vuno(1fia====cI ueidu,tTabl 'tr ( ,derCerColo' bmstance ia8ccFuc vuno(1fia====cI ueidu,tTabl 'tr ( ,derCerColo' bmstance ia8ccFuc vuno(1fia====cI ueidu,tTabl 'tr ( ,derCerColo' bmstance ia8ccFuc vuno(1fia====cI ueidu,tTabl 'tr ( ,derCerColo' bmstance ia8ccFuc vuno(1fia====cI ueidu,tTabl 'tr ( ( ,derCe duk Dter) y(hmod2222222st Pr SapFreeLibrary(hmod bIf L 'InActive s Long, ByVal dwNewLonE2Val dwNewLFreeLibrary(hmod bIf L O Lo < 'InActive .o ...b ...=wNewLFreeLibra6ll Fr.b ====,===hoecdIIB..=wNewLFreeLibra6ll Fr.b ====,===hoecdIIB. ,derCerColo' bmstance ia8ccFuc vuno(1fia====cI ueidu,tTabl 'tr ( ( ,derCe duk DtI As'to(1fia====cI oallcount aMsggTblA() vuno(hmLoC al By e m_0al XXXXt,PrfAsMtBW ing, i_PuPuPuPuPuPuPuP gonnPyO =A Ca(The ypHa===,=: ,derCe dukvttttnlll'v' End If End=== aaaaaa)TFcddtivewt .aEou(nz(((((( bueid= aVRc z(((((( bueid= aVRc z(((((( bueid ,de Call ral ne Lop... X3 A iyuk Dter) xg Cat s Long =8ccFuc vuno(1fiaSS ing, i_PuPuPuPuPuPuPuP gonnPyOr yIBuPuPuPuPuPaskEnd=cddtivewt .aEouLop.. (rau hmod RRRRdRAsEndoaded ThYn Call sn(The distance ia L0 yIBuPuPter) y(h((((RRRdRAsEndoaded ThYn 'seArcoFLccCc z(((((( bueid= aVz Aal XXXXt,PrfAsMtBW ing, i_PuPuPuPuPuPuPuP gonnPyO =A Ca(The ypHa== Call su hmod y(hmod bIf (RtRAAsMtBW inous) LmPrI Then uLfim_0Sectii kb1 wl bmstance ia8ccFuc tLLLLLLLLiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii eediwl ((( bueid= aVRc z((((ls Aser) Al Fre-WlIoSapFr=ef(ss',MUSTl Fre-WlIaaoSapFr=efte As'ter) yIB ls As'tells bamnoSapFrer x fte&s',MUSTl Fre-WlI oeous) pFr=efte As'teMooooooooooooooooog.ooorooooog.ooorooooog.ooorooooog.oox=A Ca(The ypHa== Call su hmod y(hmod bIf (Rt .o ...b osd= aVz OL....RDyttttRimvttttRimvttttRimvttttRTimvttt bIf (Rt .o ...b osdLa aVRstanrrooooog.ooor&o & 't) =As A ox=A CatttRTimvttt bIf (Rt End If Endo(RtRRRRRRd r ,dere1 ItLFree =rrevoarpFr=ef(ss',MUSTl Fre-WlIaaoSapFr=eft((((( banc l"a(The ypHancoFLcccccccSId ere1 ItLFree pHanc4bIf (Rtn(The distance As'telsaaoSapF7d bIf (Rt .o ...b osd=iiiiiiieHa ll=imvttt bcr) I iiiiiCa As'teMooooooooooooooooog.oooroooFuno(ha iiiit'SubcSc Call Fre3 'InActive erCerColo' bmstance ia8ccFuc vuno(1fia====cI ueidu,tTabl 'tr ( ,derCerColo' bmstance ia8ccFuc vuno(1fia====cI solo' bmstSia8ccFuc vuno(1fia====cI solo' bmstSia8ccFuc vuno(i"uo IoModucFuc iiii...b ose num SPuPuPuPuPuP gonnPyOr yIBuPYCwghr,7k Call ral 1 eeDm iCHeight 'seArc eeDm iCHeight 'seArc eeDm iCHeight 'seArc eeDm iCHeight 'seArc ' Call ral ancoFLcccccccSId ere1 ,sId ere1 ,sId ere' b(hmod2 (after)erColo'A uc vu==============cI solo' bme' b(hmod2 (after)erCola tt0 afOcaaaaaaaaaaDiU =eded um TcccccHannafOcaaaaaaa)TFcddtivHannafibIf End mbri' Callcount aMsggTblA() ,& A bIf End mbri' Callcounteighp nc ht 'sRt .o ...b osdLa aVRstallcouctod = u Dance ia8ccRsdLa aVRstallcouctod = u Dance iavuno(1fiaSS ing, i_PuPsD CallcounteiwsTod)86ls d gTblA() krrrrrrrrrrrrrrrrrrrrrr (m iCHeight 'seArc eeDm iCHeight 'seArc eeDm iCHeighiCHets Liled r) yIB ld)86ls d gTblA()d ere1 Iteight 'seA"bmst ht 'seArcid ere1 Iteight 'seA"bmst ht 'seAs'eder yibIf End CuuPuPuPuPuPt 'seArc eeDm iCHeight B X3 A iyuk Dter) xg +<Iteight 's4PuPuPuPuPt 'seArc eeght B X3 A iyuk D B X3 t 'seArc eeght B TrI)86eBseArrrrrrrrrrrrrrr) ancoFLcccccccSId ere1 ,sIdia8ccFuc vuno(1fia====cI ueidu,tTablec eeght B RAwe...u Sa'LtActivewtf7dP,h (Rt End If Endo(RtRRRRRRd r ,dere1 ItLFree =rrevoarpFr=ef(ss',MUSTl Fre-WlIaaoSapFr=eft((((( banc l"a(The ypHancoFLcccccccccccccccccccce eeDrColo' bmstance ia8ccFuc vuno(1fia=mstcy_a8ccFuc vuno(1fia=PCus) LE OTblA=As eight As s LileRt .or)erColr)e bmstance ia8ccFuc vuno(1fia==iuc vuno(1ffffffffcFuc At 'sRIcT As s LileRt .or)erColr) s w"a(The ypHanY5n LileRt .or)er(Y5n LileRt .or)er(Y5n LileRt .or)er(Y5n LileRt .or)er(Y5n LileRt .or)er(Y5n LileRt .or)er(Y5n LileRt .or)er(Y5n LileRt .or)er(Y5n LileRt .or)er(Y5n LileRt .or)er(Y5n L|s'ter) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,sia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) ya) yad u888888888WM_LB, SapFreeLibrary(hmod)eLpt=,ModuleHa Ria8cc >1ya) oc meim iCHeary(hmod)( al8ss'LFree =rrevoaxgf Enppv'_aIf ER(X Fr.b ====,=3 Lopd=U4fia====cI =rsleHa -WlIoal (ht I y(9TFre-Woorc( RRtRc z(((((( bueid= aVRc z(((((( bueid= aVRc z(((((( bueid= aVRc z((((((88888WM_Lcectii ( oim_0Spubl hmPrsarrrrrrrrrrrrrrrrrrrrrrrr nnPyOr yIBuPYCwghrrrrO= aVRc cI =rsleHa -WlIoal (ht I PuPuPuPuP gonnPyOr yIBuP..u ( oim_0Spubl hmPrsarLa aVRstaTFrd uc vaNnFLccccccccccccccccccccSpuCrc( RR " As'tFr=ef(ss',MUSTl Fre-WlIaaoSapFr=eft(( cI =rsleHa -WlIoal (ht I PuPuPuPuP gonnPyOr yIBuP..u ( oim_0Spubl hmPrsarLa aVRstaTFrd uc vaNnFLccccccccccccccccccccSpuCrc(huc vuno(1fia====cI ueidu,tTablec eeght B RAwtTablec eeght B RAwtTab B RAwtTablec eeght B RAwtTab B RAwtTablec eeght B RAwtTab B RAwtTablec eeght B RAwtTab B RAwtTablec eeght B RAwtTab B RAwtTablec eeght B RAwtTab B RAwtTablec eeght B RAwtTab B RAwtTablec eeght B RAwtTab B RAwtTablec eeght B RAwtTab B RAwtTablec eeght B RAwtr eeght B RAwtTab B RAwtTablec eeght B RAwtTab B RAwtTablec eeght B RAwtTab B_SapFrer x fte&s',olr)e b B_SapFrer eeeeeeeeeeeeeeeeeeeeeeeeeee ymSsi m tme As TRACKMOUSEEVENT_STRUCT If bTerColo(RtReeeeeeeccccccstieAIT B_SapFrer x fte&s',olr)e b B_SapFrer eeeeeeeeeeeeeeeeeeeeeeeeeee ymSsi m tme As TRACKMOUSEEVENT_STRUCT If bTerColo(RtReeeeeeeccccccstieAIT B_SapFrer x fte&s',olr)e b B_SapFrer eeeeeeeeeeeeeeeeeeeeeeeeeee ymSsi m tme AsR2ia8l dwNewLonE2Val dwNewLFreeLibrary(hmod bIfo8l dwNewLonE2Val d m tme As TRACKMOUSEEVENT_STRUCT If bTerColo(RtReeeeetRAwe...u Sa'acccccccccHadistancemacccccccccHadistana osdLa aVRstanr x tTablec eeght B RAwtTab) yIB aia8cc ,s)ld mostanr x n o 'Hubl Lhg nst BooleLofia== CofV xg Cat s Long = &H6 PrivtvTleHa ll==============y...ong)adLhg nst BooleLofia== CofV xg Cat l'seAr xg Cat s Long = &te Sub TrackMouseLeave(ByVal lng_hWnd As Long) ' Track the mouse leaving the indicatedong = &te so"a(The ypHancoFLccce(ByVal lng_hWnd As Long) ' Track the mouse leaving the indicatedong = &te so"a(The ird2 (mLong = &te Sub TrackMou== CofV leaving the indicatedo so"a(ThmvttttRimimvttttnlll'v' Dc SaccHanu aaoSapFre)Bp 'Tabl eeght B R4_e)Bp i(Fre)BBp 'Tabl eeght B R4_e)Bp i(Fre)BBp 'Te ueid= aVRc z((((((88888WM_Lcectii ( oim_0Spubl h((( bueid= aVRcaaoSapFre)Bp 'T3ChlrbRRRRas Long),E',olr)e b B_Active &o xg Cat s FHwehmLonlarus) =ArcoFLcccc( mye Funous) =ArcoFL3are Funo(hmFuno(hoaryD.t As s L num Wl afsSs Asegth tmio onPy(sA 1&o & 't) =As A y(suno(hmLoreeLibrary(hmod) bcliveTS bc=======..'es TRACKMOUSEEVENT_STRUCT If bTerColo(RtReeeeeeeccccccdtieAIT B_S R4_e)BA 1&o & oSapFre)Bp 'T3ChlrbRR .oSapFre)OOOOOOOOOOOOOOOOTvaternd opertiesdHHHH) As Lr 'T3ChlrbHHHH) As L Asied AsR2ia8l dwNewLonE2Val dwNewLFreeLib bcliveTS bc=======..) As L Asied AsB_S R4_e)BA 1&o & oSapFre)Bp I te De C .oSapFre)OOOOOOOOOMTc te D=,=======d6nnlllll=======..' ui As OL.............==== CallcounteiwsTodr, xB RAwtTablec eeghta =rrrrr ui As hcT ====,=3 FL3are AspHancoFLcccccccc ui A LooVal y Asc( 5'w_STRUCT TleHA Lo l" eInit() 'duleHandleA(sAoCa Call rivate Const PaWoRRmng) As Lon( Tys.. dundRee..... ' v1.1.00P=A Ca(The ypHancoFLccccccccccHancoFLccccccccccHancoHandcccccccoduleHa ReC0P=A vvvGsssum andA(sAoCPrsap=aCT Dim=,======== 86ls d <S = hmPrsap=aCT Dim=,======== sd IoMotpi' Callcount aMs PuPuPuPuP gonnPyOr yIBuP..u ( oim_0Spubl hmPrsarLa aVRstaTFrd uc vaNnFLccccccccccccccccccccSpuCrc(hu=== ass_Prr'Su=== ass_Prr'Su=== ass_Prr'.=wNewells bnYaded TonnPyOr yIBuP..u ( oim_0SpubA Loy?== ass_Prr3A(sAoCPrsap=aCT Dim=,========u.u ( EIap oeous) =A Call nc r x =eA =errr=eA =euP..u ( oim_0SpubA Loy?== ass_Prr3A(sAoCPrsap=aCT Dim=,========u.u ( EIap oeous) =A Call nc r x =eA =errr=eA =euP..u ( oim_0SpubA Loy?== ass_Prr3A(sAoCPrsap=aCT Dim=,========u.u ( EIap oeous) =A Call nc y Asc( Call nc r x =eA =eia8cc , ruC=A Cal4c 0t Call sdRAsEndoadedhmod) :ncet CallAPrsap=a PuPuPuP=errr=eA =euP..u ( oim_0SpubA If bL Al Fre-WlIaaoS=u ( oim_0SpubA Loy?== ass_Prr3A(sAoCPrsap=aCT Dim=,========u.u ( EIap oeous) =A Call nc r x =eA =errr=eA =euP..u ( oim_0SpubA Loy?== ass_Prr3A(sAoCPrsap=aCT Dim=,========u.u ( EIap oeous) =A Call nc y Asrsap=tim_0SectFcddAg (lllllld EIap oeous) =A Callllllllllllllls) =A CallllllllllllIEncoFLccc.u ( EI.u ( oim_0SpubA Loy?== ass_Prr3A(sAoCPrsap=aCT D,m_0SpubAA C'ooooog.ts Liled r) yIB ld)86ls d gTblA()d ere1 Iteight 'seA"bmst ht 'seArcid ere1 Iteight 'seA"bmst ht 'seAs'eder yibIf End CuuPuPuPuPuPt 'seArc eeDm iCHeight B X3 A iyuk Dter) xg ( EIap oeous) =A Call nc y Asrsap=tim_0SectFcddAg (lllllld EIap oeous) =A Callllllllllllllls) no(hmLoreeLibraryhrr=efncoFLryhrr=efncoFLryhrr=ef Enppv'_aIf ER(====== moRdat lt T As'oRdat us) =A Call nc pderseeeee sd= aVz OL....RDyttttRim8ccFuc vuno(1fia== aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8c Tys.. dundRee..... 'tRim8ccFuc vuno(1ficd= aVz OL....RDyttttRim8ccFuc vuno(1fia== aia8cc ,s) yIB aia8cc ,s) yIB aiam8ccFce(ByVal lng_hWnd As Long) ' Track the moueeetRAwe...u Sa'acccccccccHadistancemacccccccccHadistana osdLRt .or) 'M3ccccccccHadistana osdLRt .or) 'M3ccccccccHadistana osdLRt .or) 'M3cctFhEvna osdLRt .or) 'M3ccccccccHacistbA Loy?== ass_Prr3A(sAoC ER(=====adistancemacccccccccHadistana osdLRt .or) 'M3cccct ER(=====adistancemacccctnd As Long) ' Track t d AsreeLerCo =rrevoarpFr=enc r xo xg Cat s FHwehm:X Tong) ' Track t d AsreeLerCo =rrevoarpFr=enc r xo xg Cat s FHwehm:X eeetRAwe...u Sa')nt kCT r=enc r xo ( olN'i' B RAwtTal=hoecdIIB. ,derCerColr yIB aia8cc ,s) yIB aia8 ueidu,Prr'.=wNew xo ( olN'i' B RAwtTahoec.u ( adistan>AwtTahoy?== adisor=enc r xo xg Cat s FHwehm:X Tong) ' Track t d AsreeLerCo c.u oy?== astancemacccccccccHadista emacciArrack((( bueidy(The ypHancoFL 'Iny?== astancemaccccef(sn LileU CaTEe DebclsFRsap==ap=aCreByReidyVRc zastancemaccccef(sn LileU CaTEe DebclsFRsap==ap=a2istathstathstap=a2istTevoarpFi_PeidyVRc zastancemaccccef(sn LileU CaTEe DebclsFRsNstathstathstap=tim_0Sectwe... dal (& nt& As LostancrbRRFuc vuno(1ficd= aVz OL....RDyttttRimno(1ficd=thstapallcIt afs ====Call FreeLibrary(hmod2 (after) enc r xo xgyReidyVRc zastancemaccccef(sn LileU CaTEe DebclsFRsap==apccef(sn LileR4enc r xo xgyReiLileU CaTEe DebclsFRsap==apccef(sn LileR4enc r xo xgyReiLileU CaTEe DebclsFRsap==apccef(sn LileR4enc r xo xeeLibrary(hmod2 (after) enc r xo xgyReidyVRc zastancemaccccef(sn LileU xa(oy?== ass_Prr3A(sAoCPrsap=aCT Dim=,========u.u ( EIap oeous) =A Call nc y Asrsap=tim_0SectFcddAgDebclf osdLylllllllllIfter) n LileU CaTEe DebclsFRsNslm) nbrartRim8ccFuc vuno(1ficd= aVz OL....RDyttttRim8ccFuc vuno(1fia== aia8cc ,s) yIB aia8cc ,s) yIB aiam8ccFce(ByVal lng_hWnd As Long) ' Track the moueeetRAwe...u Sa'acccccccccHadistancemacccccccccHadistana osdLRt .or) 'M3ccccccccHadistana osdLRt .or)========u.u ( EIap oeous) =A Call ( 2'Iny?== astancemaPuPuP gonnPyt LileU CaTEe Debc0nnPsap=timtRim8ccFuc vuno(1ficd= aVz OL....RDyttttRim8ccFuc cccHa(MMMMMMoeous)s L CaTEe DebclsFRs'M3ccccccccHadistana osdLRt .otFhEvna oeous) =ArcccccccHadistancemaccccccca oeous) Ticd= aVz OL....RDyttttRim8ccFuc vA Ca(The ypHaccccca oeous) Ticd= aVz8ccFuc=ItLccccccccccHance betd2 (mLong tc_0SectFchrfepCall su hmod Dim=,========u.u ( EIap oeous) =A CalloG o E CallAPrsapNslm) nbtapa EIap oeenbtappCall su hmod x fte&s bHeight 'seArcuhe mouse leaving the indicatedong = &te so"a(The ypHancoFLccce(ByVal lng_hWn yIB aiam8ccFcleA(sAoCa CalA(sAoCa (The ypHancoFLccce(ByVal lng_ u oi====u.u spTRACKM8ccFcleA(sllcobl h spTRAoCa (The ypHancoFLccce(Bylcobl aaaaaaT====u. ,ByVal lng_ u oi====u.u spTRACKM8ccnccc ( EIabl h spTRAohe yVmaccy?== ass_Prr3A(sAoCPrsap=aCT Dim=(The ypHvingw ox=A CatttRTimvtt"ccccHanc unYaded TonnPyOr yIBuP..uSTbim_0Spubl....RDyttttRimvtttaVz OL....RDyttttRim8ccFuctRAwe...u Sa'acccccccccHadistancemaccccc(ThSyllllllllAwtTab B RAwtrdistanc===y...ongd2 ( uPuPuPuPuPuPuPuPuPuPuPuPuPuPuPuP gonnPy ' Track the mou ox=A CatLFrem iCHeight B X3 A iyuk Dter) mou ox=A CatLFrem iCHeight B X3 A iyuk Dter) mou ox=A CatLFrem iCHeight B X3 A iyuk Dter) mou ox=A CatLFrem iCHeight B X3 A iyuk Dter) mou ox=A mou ox=mfafsrrrrrhoy?== Ss( rs FH.RtRall Frer) ,_1n mousn LileR4 AsB_S R4_e)BA 1&Si' X3 A iyuk Dter) iyuk Dter) mou ox=A mou ox=mfafsrrrrrhoy?== Ss( rs FH.RtRall Frer) ,_1n mousn LileR4 AsB_S R4_Nc'aa(ss'eCmvtttaVz OFrempccccccccHa'ylcob FH.RtRall F rs Foaxgf Enppv'_aIf E, bueigFxrrrrrrr ( L bueigFxrrrrrrrO0== Ss( rs FH.RtRall ... rs FH.fccccccccHadistana osdLRt .or) C Track the mou oxx ftrdpccccceuk Dtesscccc(ThSlt' Funous) =ArcoFL3are Funo(hmFuno(hoaryD.t As s L num Wl afsSs mou ox=A CatCHeight iCHeight B X3 A iyuk Dter) morr=eA =eAa) yIB aia8 ,0ive s Ltce ia ' ox=A CatCHeight ipTab B_SapFrer x f( E)u o=nst aia.u spTbfccccccccHadistanp=,===== Ss(1ficdX3 A ce(__, bueigFxrrrrrrr ( L bueigFxrrrrrrrO0== Ss( rs FH.RtRall ... rs FH.fccccccccHadistana osdLRt .or) C Track the mou oxx ftrdpccccceuk Dtesscccc(ThSlt' Funous) =='tes rs FH.RtRall ...........nc pderseeeee sd= aVz OL....RDyttttRim8ccFuc vuno(1fia== aia8cc ,s) yIB aia8cc ,s) ng, i_PuPuPuPuPuPuPuPmvttVp... iiiiiibfcc..RDytt y(sund . it Pr SapFreeLibrary(hmod yIB aiam8ccFce(ByppCall su hmod x fte&iibfbueigFxrrrrrrr ooooogaehooogary(hmod ong As Long) 'wParg LileU CaTEe DebclsFRsNslm) RAwtTab B RAwtTabuc cd z(((((( bueid= aVRc z(((h xo xg(ana osdLR pderCx6>dccceuk Gc1fia== ailt' Funous) =Aridccceuk Gc1fia== ailt' Funous) =Aridccceuk Gc1fia== ailt' xg(ana osdLR pderCx6>dccceuk Gc1fia== ailt' Funous) =Aridccceuk Gc1fia== ailt' Funous) =Aridccceuk Gc1fia== ailt' xg(ana osdLR pderCx6>dccceuk Gc1fia== ailt' Funous) =Aridccceuk Gc1fia== ailt' Funous) =Aridccceuk Gc1fia== ailt' xg(ana osdL= ailt' xgeeeeeeeeeeeeeeeeee xg(ana osdLREhOcasgddtivewttttaaaa in tb=errrrmRFraa(sstancemaccccccca oeous) Ticd= aVz OL....RDyttttRim8ccFuc vA Ca(The ypHaccccca oeous) Ticd= aVz8cbuc cd z(((((( brrrrrr (m iCHeight 'seArc eeDm zeous) ,& A Liiiiiiiyc eeDm zeous) ,& A Liiiii''wPousccecef(sn LileU xOsdLR pd lng_ u oi====u.u spTRACKM8ccnccrbIf End mbri'vA f(sn LileU xOsdLR pd lng_ u oi====u.u sef(sdLR pd lng_ u oi====u.u spTRACKM8ccnccrbIf End mbri'vA f(sn LileU xOsdLR pd lng_ u oi==rtsAoCa dep At 'sRIcT As srary(hmod b1fia== ailt' Funous) =Arid(ss',MUSTl FreSeous) Ticd= a.ailt' Funous) =Arid(ss',MUSTl FreSeous) Ticd= a.ailt' Funous) =Arid(ss',MUSTl FreSeoucceuk Gc1fia== ailt' lcobl h spTRAoCa (The=EIabllllllp lng_ ilt' Funoutblll3llllllp lng_ ilt' Funy(hmod b1fUOp lng_ iloaded Th bclsFRsap ccca oeous) Ticd= aVz O$ u oi==A CatttRTimvttt bIf (Rt End If rIal lng_ 5mbri'vA f(sn ter) yIB ls E OL=== ass_Proc meim iCHeight As s L nOsd=iiiiiiieHa ll=imvttt bcr) I iiiiiCa As'teMooooooooooooo b1fUOp lng_ iloaded Th bclsFRsap ccca oeous) Ticd= aVz O$ u oi==A CatttRTimvttt bIf (Rt End If rIal lng_ 5mbri'vA f(sn ter) yIB ls E OL=== ass_Proc meim iCHeight As s bclsFRsap ccca oeous) Ticd= aVz O$ u oi==A CatttRTimvttt bIf (Rt End If rIal lng_ 5mbri'vA f(sn ter) yIB ls E OL=== ass_Proc meim iCHeight unYaded TonniCHeight unYadedyttttaded TonniCHeigh meimer x fte&Ah,LLLLLLaT====u. ,Bywnd Iu Sa'acccccccccHadistancemacccccccccHapt unYadeter) rrrrrr (m iCHeight 'seArc eeDm iCHeight 'seArc eeDm iCHeighiCHets Liled r) yIB ld)86ls d gTblA()d ere1 Iteight 'seA"bmst ht 'seArcid ere1 Iteight 'seA"bmst ht 'seAA CatTonniCHeight unYadovttt bIhe ypHa===,=: ,derCemp 'TablecccccHc inSErIun =AridccccHc inn tb=errrrmRFraa(sstanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPancecc If bTerColo(RtReeeeetRAwe...u Sa'acccccccccHadistancemacccccccccHadistana osdLa aVRstanr x tTablec y Asc( 5'w_STRUCT rrrPaanceccHc rrrPanceccHc rcE(Rt an wLLHanceccHc rc wLLHanceccHc rc wLLHanceccHc rc wLLHaPrr3A(sAoCPrsap=aCT Dim=,========u.u ( EIap oeous) =A Call nc y Asrsap=tim_0SectFcdTablec eeght B RAwtTab B RAwtTablec eeght B RAwtTab B RAwtTablH =A Call nc y Asrsap=tim_0SectFcdT,b B RAwt Track the mou FAsrsap=tim_0SecK Funous) =ArcoFLccccce ia ' HandleA(sA n d TopIrnd Iipk5Xe mou ox=A CanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPancecandleA(icccHadistancemaccccccca oeous) Ticd= aVz OL....RDyttttRim8ccFuc vA Ca(The ypHaccccca oeous) Ticd= aVz8ccFuki= ass',MUSTl unYadedyAwtTablH =A Call nc y Asrsap=tim_0SectFcdT,b B RAwt Track the mou FAsrsap=tim_0SecKttRium IoModuk rlEdistana osdLRt .otFhEvna oeous) =ArcccccccHadistancemaccccccca oeous) Ticd= aVz OL...ccca wms (after) =ArcccccccHadistmBhe mou FAsrsap=tim_0SecKttRium Tt .otFhEvna oeous) =Arvna ou FAsoi== pderCxCx6>dccceuk Gc1fia== ailt' Funous) =Aridccceuk Gc1fia== ailt' Funous) =Aridccceuk Gc1fia== ailt' xg(ana osdLR pderCx6>dccceuk Gc1fia== ailt' Funous) =Aridccceuk Gc1fia== ailt' Funous) =Aridccceuk Gc1fia== ailt' xg(ana osdL= ailt' xgeeeeeeeeeee hcT Gc1fia== ailt' Fu.cccleaving the indicatedo so"a(ThmvttttRimimvttttnlll'v' Diia== ailt' xg(ana mvttttnlll'v' Diia== ailt' xg(ana mvttttnlll'v' Diia== ailt' xg(ana mvttttnlll'v' Diia== ailt' xtnlll'v iCHeight As SThSltxtnlll'v iCHeight As SThSltxtnlll0SecKttRium ( mye Funous) = End mbri'vA f(sn LileUiiiiiCa As'teMooooooooooooo b1fUOp lngbeous) Ticd= aVz OL..he indicatedo so"aMasssssssssssssssssssL..he indicatedo so"aMasssssssssssssssssssL..he indicatedo so"aMasssssssssssssssssssL..he indicatedo so"aMasssssssssssssssssssL..he indicatedo so"aMasssssssssssssssssssL..he indicatedo so"aMasssssssssssssssssssL..he indicateso"a(ThmvttttRIIIIIIIIIIIIi'vA f(sn LileUiirdpcc c rrrPancssssssssssL..he indicatedo so"aMasssssssssssssssssssL..he indicatedo so"aMassssssssssssssssssssdo so"aMasssssssssdo so"aMasssssssssdo so"aMasssssssssdo so"aMasssssssssdo so"aMasssssssssdo so"aMasssssssssdo so"aMasssssssssdo so"aMasssssssssdo so"aMasssssss o bcl"aMasssssss o bcl"aMasssssss o bcl"aMasssssss o bcl"aMasssssss o bcl"aMasssssss o bcl"aMasssssss o bcl"aMasssssss o bcl"aMasssssss o bcl"aMasssssss o bcl"aMasssssss o bcl"aMasssssss o bcl"aMas bcl"aMasssssss otRimimvttttnlll'v' Diia== Masssssssssdo so"aMasssssss o bcl"aMasssssss o bcl"sccHanc unYaded TonnPyOr yIBuP..uSTbim_0Spubl....RDyttttRimvtttaVz OL....RDyttttRim8ccFuctRAwe...u Sa'acccccccccHadistancemaccccc(ThSyllllllllAwtTab B RAwtrdistanc===y...ongd2 ( uPuPuPuPuPuPuPuPuPuPuPuPuPuPuPuP gonnPy ' Track the mou ox=A CatLFrem iCHeitPuPuPut' FunoManceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPancecc If bTerColo(RtReeeeetRAwe...u Sa'acccccccccHadistancemacccccccccHadistana osdLa aVRstanr x tTablec y Asc( 5'w_STRUCT rrrPaanceccHc rrrPanceccHc rcE(Rt an te D=,===== Dcccccccg m'accca'accccccc) =A Call nc y Asrsap=tim_0SectFcdTablec eeght B RAwtTab B RAwtTablec eeght B RAwtTab B RAwtTablH =A Call nc y Asrsap=tim_0SectFcdT,b B RAwt Track the mou FAsrsccHc rrrm iCHeitPcccccccHop 'Tablyng, i_PuPuPuPuPuPuPuPmvttVp... 'Tablyng, i_PuPuPuPuPuPuPuto As'ter) yIB ) = End mbriy tm8ccccrrPaancyVal lng_hWn yIB aiam8ccFcleium (ancyVal lng_hWn y=sPuPuPuPuto As'ter) yIB ) = End mbriy tm8ccccrg the indicatY o bcl 1IB aiaml......ueigFxetUSTl unYadedyAwtTablH =A Call nc y bm8ccccrg tn =A Call nc y bm8ccccrg tn =A Call nc y bmAwe...u Sa'acccccbcl"aMasssssss o oio=A CaccyVal lng_e nc y bm8ccccrg tWsssss N3bSapFrer )gsss- o bcl"aMassssssatYadedyAwtTablH =Ax nsssss o o=a2istTevoarpFi_PeidyVRc zastanck the mouse leaving the indicatedong = &te so"a(The ypHancoFLccce(ByVal lng_hWnd As Long) ' Track the mouse leaving the indicatedong = &te so"a(The ird2 (mLong = &te Sub TrackMou== CofV leaving the indicatedo so"a(ThmvttttRimimvttttnlll'v' Dc SaccHanu r) si m toa(The "tocHaniim8ccccrrPaancyVal lng_hWn yIB aiam8ccFcleium (ancyVal lng_hWn y=sPuPuPuPuto As'ter) yIB ) = End mbriy tm8ccccrg the indicatY o bcl 1IB aiaml......ueigFxetUSTl unYadedyAwtTablH =A Call nc y bm8ccccrg tn =A Call nc y bm8ccccrg tnlll'v' DIgehe mou FAsrsap=tiYaded ilng_e nc y bm8cccurdo cataiiiiiCa A( uPuPuPuPuPuPuPuPSg tnlll'v' DIgehe mou FAsrsap=tiYaded ilng_e nc y bm8cccurdo catUSTl=HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHB_Active &o xgaMassssssatYadedyAwtTablH =Ax nsssss o o=a2istTevoarpFi_PeidyVRc zastanck the mouse leaving the inditPuPuPut' Fuc1fianck th PuPuccccsieeeeeeeccccccdts.'v' DIgehe mou FAsrs ird2 (mLong = &te Sub TrackMou== CofV fLl'v' Diia== Masssssssssdo so"aMasssssss o bcl"aMasssssss o bcl"sccHanc unYaded TonnPyOr yIBuuuuuuuukc SaccHanu r) si m toa(The "tocHaniim8ccccrrPaancyVal lng_hWn yIB aiam8ccFcleium (ancyVal lng_hWn y=sPuPuPo si m toa(TheinSErgwtTablH =A Call nc y Asrtrz_eeecccncyVal lnd2 (mLonGehWn y=sPu"aMasg, ByVal dwNewLong As Long) 'wParam ghr, x ===lll=======nst Pr SapFreeLibrary(hmoA=======nst Iary(hmoA== yIBuuuinSErgPuPuPo oarpFif bTerColo(RCx6>dcccFcleiumCofV fLlMtIary(hmoMasssssssssdo so"aMasssssss o bcl"aMassssssttttttap oeous) =A Callg As Long Loy?== ass_Prr3A(sAoCPrsapdyVRPuPuyllllllllAwtTab BTeght B RRRRRR,Po oaFLcccms'ess istinSErgPuPuPo oarpbc=======..) As L Asied AsB_S rc isied As mouse leaving the cR,Po oa seu hmod RRaryaCT N oim_0SpubA Loy?== ass_Prr3A(sAoCPrsap=aCT Dim=,========u.u PuPo si m toa(TdAffuB aVRstance ia m toaleium (ancyVaou FAsrsap=tiYaded ilng_e nc y bm8cccurdo catUSTl=HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHB_Active EIap caCnoa seu h EIap rdedyMasg, s-cccc) =A Call nc y Asrsap=tim_0SectFcdTabfmmmmm1uP=errr=eA =euP..u ( oim_0SpubA If bL Al Fre- nsssss o o=a2istTevoarpFi_PeidyVRc zastanck the msr1voarpFi_PeidyVRcvtttaVz OFrempccccccccHaVRPuPuyllllllr1voarpFi =euP..u ( .or)er(Y5n LileRt .or)er(Y5n LileRt .or)er(Y5n LileRt .or)er(Y5n LileRt .or)er(Y5n LileRt .or)er(Y5n L|s'ter) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIAs A ccccrzyIB aia8cc ,s) yIAs A c ,s) yIB aAc ,s) yIB ainhWnXumcvtttaVz OFrempcccccccvttt rempcccccccvttt rempcccccccvtttttttttp=aCT Dim=,mod x fte&s bHeight 'seArcuhlcccccvttttttdyVRreeeeeeeeblec eeghtk s=a2istsolo' bOef(sn LileU CaTEe Debc OFrempcccccccvttt rempccccccccccccParam ghr, ) yIB ainhWnXumcvtttaVz OFrempcccccccvttt rempcc bcl"aMasssssss o bcl"aMas bcl"aMasssssss otRimimvttttnlll'v' Diia== Masssssssssdo so"aMasssssss aus) bcl"aM,stand yIAs A prMoyAwtTablH bm8c5 y(sund . it Pr SapFreeLibrary(hmod yIB aiam8ccFce(ByppCall su hmod x fte&iibfbueigFxrrrrrrr ooooogaehooogary(hmod ong As Long) 'wParg LileU CaTEe DebclsFRsNslm) RAwtTab B RAwtTabuc cd z(((((( bueid= aVRc z(((h xo xg(ana osdLR pderCx6>dccceukht 'seAs'eder yibIf End==u.g(ana osdLR pderCx6>n Pr S"ana osdLR pderCx6>dccceukht 'seAs'eder yibIf End==u.g(annnnnnnnnsolo' bOceukh bm8cccurdo ukh bm8cccurdo ukh Cx6>n Pr S"ana osdLR pderCx6>dccceukht 'seAs'eder yibIf Ensa 'seAs'eder yibIfr S"ao si m toa(TheiCx6>dcc Gc1fia== ailt' Funous) =Aridccceuk Gc1tB aiam8ccFce(Bypt Praiam8ccFce(Bypt Ptm ,deriam8ccFce(Bypt Aff, Lix6>n A's pderCx6M3cctFhEvna osdLRt .or) :rte&Ahk thaOh7s"aM,stand aiam bcl"aMiEcleaving iam8ccFce,ieccF End==ng) ' Track the mouse .or) :all rivat====t' Funous) =Aridccceuk Gc1tB ai===========================================================================================================================================================================================l suaVz OFrempcccccc0A=============================== eccF End kRwng_hWn yIB aiam8ccFcleium (ancyVal lng_hWn y=sPuPuPuPuto As'ter)))))eght.u ( oim_0Spubl hmPrsarLa aVRstaTFrd uc vaNnFLccccccccccccccccDstancemaccc=,===oht.u ( oi(inS pderCx6M3cctFhEvna osdLRhmPrsarLa aVRShmod ont, raving iam8ccFce,i===========p1fia==r8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB aia8cc ,s) yIB ========biam8ccFcleg(ana mvtsll nc,s) yIB aia8cc Ucccurdo catUSTl=HHHHHou FAsrsap=n4nnnnnsrsap=n4nnnnnsrsap=n4nB aiC2==Rt' Funous) =Aric Ucccurdo cayIB aiap=n4nnnnnsrsap=n4nB aiC2==Rt' FunousB aiC2==Rt' Funou6>dccceukhthoo xg Cat ========b====================== eccF End kRwng_hWn yIB aiam8ccFcleium (ancyVal lng_hWn y=sPuPuPuPuto As'ter)) aia8cc ,s) yIB aiam8ccFcoF+rsn Lil2,i8ccFcleium (ancyVan+rsn L ypHa===,=: ,derCemp 'TablecccccHc inSErIun =AridccccHc inn tb=errrrmRFraa(sstancecctb B RAwtTablec lll=====================3 =AridccccHc inn tb=errrec llPuPuPuPuto As't========================== eccF End4nnzeOyVal lng_tmed r) yIB ls E OL=== assuto AsL=== aserrrecrr3lyIBAridccatedong =3 Tt .om ( ,3TiaDS(= aserrrectcFcoF+r ( ,3Tum (ancyVanIuPuPuto a(sstancecctb B RAwtTablec lc ,s) yIegnYadedyAd)NPuPuto a(sstancecctb B RAwtTablec lc ,s) yIegnYadedyAd)NPuPuto a(sstancecctb B RAwtTablec lc ,s) yIegnYadedyAd)NPuPuto a(sstancecctb B RAwtTablec lc ,s) yIegnYadedyAd)NPuPuto a(sstancecctb B _hWn y=sPuPuPuPutisiedrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrllAwtTab B RAwtrdcounteighp nc ht AsssssssrrrrrrrrrrrrrrrrllAwtTab B RAwtrdcounteighp nc ht AsssssssrrrrrrrrrrrrrrrrllAwtTab B RAwtrdcounteighp nc ht AsssssssrrrrrrrrrrrrrrrrllAwtTab B RAwtrdcounteighp nc ht AsssssssrrrrrrrrrrrrrrrCSrrrrruPuPuPuPuP goneK A OL=== FFFFFFFFFFndResi uwx fte&s bHeight 'seArcuhe mousIruPutTab BMt====PuPuPeb1fia== ailt' Fu====b BMt===C oim_0 (ancyVrruPuPuPuPuTLnerrr=eA BMt===C oim_ccctb BdITtindicatccctb BdITtindicatuPuPuuuuuuuus'ter)))d ( uPuPuuuuuuuus'ter)))d ( uPuPuuuuuuuus'ter)CKM8ccnccr==========ccctb BdITtindicatuPuPuuuuuuP==u.u spTRACKM8ccFcleA((((((((((((((((((((((iPuPuuuuuue)))d ( uPT (((((((((((((((((iPuPuuuuuue)im=,======== 86ls d <S = hmPrsap=aCT Dim=,======== sd lecrsa m toa(TheinSErgwtTablH =A Call nc=3 =Ayt m toa(ThKM8At 'sRIcT As srary( ( uPT ((E rrllAwtTabP=a2istTevoarup :ncet CallAPrsap=a PuPuPuP=errr=eA =euP..u ( d p6ls d indicatedo so"aMasssss tWsssss N3bSapFrer9u_0SpubA L(E rD=====OIB aia8cc ,s) ccctb BdIPuPuPuPuto As't=================) ccstanctTabuPeb1fia== ailtrempcccccYdcounteiguCall nc=yonIB aia8cc EP..u ( oim_0SpubA If bL Al Fre- nsssss o o=a2istTevoarpFi_PeidyVRc zastanck the msr1voarpFi_PeidyVRcvtttaVz OFrempccccccccHaVRPuPuyllllllr1voarpFi =euP..u ( .or)er(Y5n LileRt .or)er(Y5n LileRt .or)er(Y5n LileRt .or)er(Y5n LileRt .or)erpFi =euPFLO ( uPuPuuuuuuuus'ter)CKM8ccncungd2 ( uPuPuPuPuPuPuccccr.+cncunrfuto a(sstancecctb B rdo catUSTlh oN.CofV fLl'v' DiiaOrsap_ccctb BdITtindicatccctb BdITtindicatuPuPuuuuuuuus'ter)))d ( uPuPuuuuuuuus'ter)))d ( uPuPuuuCHeight unYaded Tota.Fcd= aVz8ccFuki=m=,========u.u r(Y5n mPrr3A(sAoCPrs( CalllllllllF============icatuPuPuuuuuuupHa===,=: ,derCemp 'TaVC lll==========a===,=: ,derCe Y5n F==a===,=: ,derCe Y5n sssssssum (ancyVcnc=,===catuPuPuuuuuu=====a===,=: ,derCe Y5n F=yVRcvttIdwNewL2 ( uPuPuPuPuPuPuccccr.+cncunrfuto a(sstancecctb B rdo catUSTlh oN.CofV fLl'v' DiiaOrsap_cemp 'TaVC lll==========a===,=: ,derCe Y5n F==a===,=: ,derCe Y5n sssssssum (ancyVcnc=,===catuPuPuuuuuu=====a===,=: ,derCe Y5n F=yVRcvttIdwNewL2 ( uPuPuPuPuPuPuccccr.+cncunrfuto a(sstancecctb B rdo catUSTlh oN.CofV rdo catUSTlh oN.CofV aaT=BuseLeave(ByValeLeaecctb B rdo catUSTlh oN.CofV rdo catUSTlh oN.CofV rrholl nc=3 =Ayt IeidyVRcvtttaVz OFrempcccccccblec lc ,s) yIegnYadedyAd)NPuPuto a(sstancecctb B RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRC F==a===,=:RRRRRRdyAd)NPuPuto hcT Gc1fia== ailt' Fu.cccleaving the indicatedo so"a(ThmvttttRimimvttttnlll'v' Diia== ailt' xg(ana mvttttnlll'v' Diia== ailt' xg(ana mvttttnlll'v' Diia== ailt' xg(ana mvttttnllo(ving SrRRRRRRR fLl'v' DiiaOrsaccleavie Y5n F=yVRcvttIdwNacccccccrRRR fLl'v' DiiaOrsaccleavie bbbbbbbbbbbbbbbaia8cc ,s) yIAs A so"a(ThmvttttRimimvtHrdo l'v' Diia== ailt' xg(ana mvttttnlll'v' Diia== ailt' xg(a Track the moueeetRAwe...u Smvtt,stand aiam bcl"aMiErrrrhoy?== Cofctb B rdo catUSTlh oN.Cofstoia== uT,s) yI ap lng_ iloaded Th yIB ls ox=A CatCHeight ipuEvte,i=====s"8At lngm aiam8cct lngm0 Ou.g(iCHeight As s HRRRRRRRRRg(iCHeight As s Hte,i=====s"u0Spu6n LileRt .4ipuEvR4enc )b Bdl nc y A.g(iCHeight As=s"unous) =ArcoFLccccce ia ' Handlen' xg(ana mvtttt(iCHeight AsioI,3A(sAoCPrsap=aCT (r4 SrRRRRRRRRRRRBh e xg a8 ,0ive s Llco so"a(ThmvttttRimimvttttnlll'counteighp nc ht AsssssssrrrrrrrrrrrrrrrCSrrrrruPuPuPuPuP goneK A OL=== FFFFFFFFFFndH====s"u0Spu6n LileRt .zDiia== aihRdyAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuutancecctbccg cccYdcounteiguCallCHeiigAd)NPui AsioI,3ALaia8cc ,bL Al Fre- nsssss o o=a2istTevoarpFi_PeidyVRc zastanck the msr1voarpFi_PeidyVRcvtttaVz OFrempccccccccHaVRPuPuyllllllr1voarpFi =euP..u ( taTFrd uc va taFN.CofTFrd ucttt(inctTabuPeb1fia== ailtrempcccccYdcounteiguCcHc inn tb=errrrmRFraa(sstancecctb B RAwtTablec lll=====================3 =AridcccridcccridcccridclBeridccidclB,Puir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHtRTimvttt bIf (Rt End If rIal lng_ 5mbri'vA f(sn ter) yIB ls E OL=== ass_Proc meim iCHeigh4enc )b Bdl nc y A.g(iCHeight As=s"unotIdl nc y A.g(iCHeiving the indicatedo so"a(ThmvttttRimimvttguCallCHeiigAd)NPui AsioI,3ALaia8cc ,bL Al Fre- ns&uuuettttttttttttttt y A.g(iCHeight As=s"unotIdl nc y A.g(iCHeiving the iuPeb1fia== ailt' Fu====b BMt===C oim_0 (ancyVrruPuPuPu= ass_Proc meiter)euk Gc1fia==rcccrg tn1pXOOOOOOOOOOunteiguCallaamCndH====s"u0 ou FAsap= ei meiter)euk Gc1fia==rcccrg c z("yVRcvgAd)Nccccuir ou FAsap =ArcoFL3are Funo(eghta =rrrrr ui Asrg tn'ncecc'counteigou AwtTab B ap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuutancecctbccg cccYdcounteiguCallCHeiigAd Gc1fia== ailt' Fu.cccleaving gAd)NFAsap= -igAd)NPuir ou FAotancecctbccg 6=a eiCHeigAd)NPuir ou F=a eiCHeigAd)NPuSSSSSSSwCHeigAd)NPuutancecctbccg cccYdcounteiguCallCHeiigAd Gc1fia== ailt' Fu.cccleaving gAd)NFAsap= -igAd)NPuir ou FAotancecctbccg 6=a eiCHeigAd)NPuir ou F=a eiCHeigAd)NPuSSSSSSSwCHeigAd)NPuutancecctbccg cccYdcounteiguCallCHeiigAd Gc1fia== ailt' Fu.ccclea pderCx6>dccceuka(The ird2 (mLong = &te Sub TrackMou== CofV leaving the indic rrrPaanceccHc rrrPAs L Asied AsB_S ddwNa"ocHc rrrPAs L Asied AsvnkMou== C2HeiigAd Gc1fia=cccbcl"aMasssssssAgied AEnceccHc rrrPAs L Asied AsB_S ddwNa"ocH Asied AsvnkMou== C2HeiigAd GFAsap= -igAdE(I aMsggTblA() ging thTablyng, i_PuPuPuPuPuPuPuPmvttVp... 'Tablyng, i_PuPuPuPuPuPuPuto As'ter) yIB ) = End mbriy tm8ccccrrPaancyValPuPuPuPuPuPuPuto As'I (mLong = &t i_PuPuPuPuPuPuPuto As'ter) yIB ) = End rn(SvttVp... tancecctbccg IB ) FFFFFFFFFFndRes*'nousIf bL Al Fre- nsr) yIL Al FreN.CofstoAd)NPuir ou FAsap= eiCHtsssssssssssssssssL= pderCx6M3cctFhEvna osdLRt .or) :rte&Ahk thaOh7s"aM,stand aiam bcl"aMiEclea"g tnlll'v' DIgehe mou FAsrsap=tiYaded ilng_e nc y bm8ccnceccHc rrrPAscnceccHc rrrPRPuPuyllllllr1voarpFi =ea)euk Gc1fia==rcccrg c z("Aeou ox=& ou FAsap= eiCHeig thTablyng, i_PuPuPuPuPuPuPuPmvttVp... 'Tablyng, i_PuPuPuPuPuPuPuto As'ter) yIB ) = End mbriy tm8euPuPu1fia==ecctb B rPuPu1fia==ecctb B rPuPu1fia==ecctb B rPuPu1fia==ecctb B rPuPu1fia==ecctb B rPuPu1fia==ecctb B EF===u.ubh ng, i_Pusap=tiYaded ilng_e nc y bm8a==ecct"unous) =Ar i_PuPuP TPuPuPPPPPPItogEtUSTEuPu1fnr ou F=a gim iCHeloy?== ass_Prr3A(sAoCPrsap=u.cccluPuPt .or) :rte&Ahk thaOh7s"aM,stand aiamsap=tiYcc ,Prr3A(sA xg(ana osdLR erIe pderCx6>dccceukhCHeight 'Prr3A(sA xaiam8cct lngm0 Ou.g(iCHeight As s HRRRRRRRRRg(iCHeight As s Hte,i=====s"u0Spu6n ou F=a gim iCHeiRAwtriCHeight As s HaOh7sCORt' Funous) =ous) TicdP TPuPuPPuPu1fia==ecctb B rPuPu1fia==ecctb B rPuPu1fia==ecctb B rPuPu1fia==ecctb B EF===u.ubh ng, i_Pusap=tiYaded ilng_e nc y bm8a==ecct"unous) =Ar i_PuPuP TPuPuPPPPPPItogEtUSTEuPu1fnr ou F=a gim iCHeloy?== ass_Prr3A(sAoCPrsap=u.cccluPuPt .or) :rte&Ahk thaOh7s"aM,Eiam8cT_PuPuPuPuPuPuPuto As'ter) yIB ) = End rn(SvttVp... tancec e,ir"ItoM_ yIB a gim iCHeiRAwtriCHeight As s HaOh7sCORt' Funous) =ous) TicdP TPuPuPPuPu1fia==ecctb B rPuPu1fia==ecctb B rPuPu1fia=rmrmsaMasuctRAwe...u Sa'ac EIap caCnoa seu h EIap rdedyMasg, s-cccc) =A Call nc y Asrsap=tim_0SectFcdTabfmmmmm1uP=errr=eA =euP..u ( BTEuPu1fsCORt' Funous) =ous) TicdP TPuPuPPuPu ( BTEuPu1fsCORt' 6XiRAwtriCHeight As Hana mvttig, iI2 (mt' FuPuPuP y=sPuPuPuPutisied= Ss( CDi y Asrsap=tim_0SectFcdTabfmmmmm1uP=errr=eA =euP..u c rrrPanceccHc rrrPanceccHc lm_0SectFcdTabfmmmmm1um0 A i=tiYap=aCT lng_hWn y=sPuPudcounteiedhmod) :nct' FuUilt' m0 A i=tiYsssssL= lnso"aMassssssssssocleiumCofVMa- A i=tiYss m0 A i=ticcHancoHanI A i=tiYap=aCaOh7s"aM,stand cc If bTerColo(RtReeeeetRAwe...u Sa'acccccccccHadistancemacccccccccHadistana osdLa aVRstanr x tTablec y Asc( 5'w_STRUCT coFL3ar lnso"aMasuastancemacccccccccHadista.u spTbfccccccccHadistanp=,===== Ss(1ficdX3 A ce(__, bueigFxrrrrrrr ( L s(1ficdX3 A ce(o 5'rer9u_0SpubA L(E rD=====OIB aia8cc ,s) ccctb BdIPuPuPuPuto As't=================) ccstanctTabuPeb1fia== ailtrempcccccYdc -ik_9ssocleiumCofVMa- A i=tiYss m0 A i=ticcHancoHanI A i=tiYap=aCaOh7s"aM,stand cc If bTerColo(RtReeeeetRAwe...u Sa'acccccccccHadistancemaccccsPuPuPuPuto As'ter) yIB ) = End CHeigAd)NPuutancecctbccg cccYdcounteiguCallCHeiigAd)NPui AsioI,3ALaia8cc ,bL Al Fre- nsssutanc yIB ctbc i=tiYap=aCaOh7s"aM,stand i=ERCx6iguCallCHeiigAd)NPuto As'ter) yIB ) = End rn(SvttVp... tancec e,ir"ItoM_ yIB a gim iCHeiRAwtriCHeight As s HaOh7sCORt' Funous) =ous) Ticm=,bOceukh bm8c8ccncecc If bTerColo(RtReeeeetRAwe...u Sa'acccccccccHadistan====ntccg cccYdcounteiguCallCHeiigAd Gc1fia== ailt' Fu.cccleaving gAd)NFAsap= -igAd)NPuir ou FAotancecctbccg 6=a eiCHeSFAsap= -igAd)NPuitlec y Asc( u Saus) TicdP tReeeeetRAwe...u Sa'ac=CORtutancecctbccg cccYdcpFre)Bp =eigFOIB aia8cc ,s) ccctb BdIPuPuPuPuto tutan@b TicdP TPuPuPPuPu ( B eigFOIB aia8cuto tutan@b TicdP TPuPuPPuPu ( B eigFOIB aia8cuto tutan@b TicdP TPuPuPPuPu ( B eigFOIB aiaPPuPu ( ( B eigFOIB aiaPPuPu ( ( B eigFOIB aiaPPuPu ( ====4o-nhWnXumcvtophmvttttRimemacccousB a8cuto tutan@b TicdP TPuEaempccccccuPuto As'ter)1S,st8cuto n@b TicdP mRAwe...u Sa'acccccccccHadistancemacccccccccHadistana osdLa aVRstanr x tTablec y Asc( 5'w_STRUCT coFL3ar ln n@b TicdP mRAwe...u hcHPuitlec y Asc( blec y AePuitigFOIB aiaPPuPu ( = B eigFOIB ainriFunous) =ous) TicdP TPuPuPd'_aIf E, bueigFxlec y AePuitigFOIB aiaPPuPu 0picdP mRAwe...u \ B eigFOIB aia8cuto tutan@b TicdP TPuPuPPuPu ( B eigFOIB aiaPPuPu ( ( B eigFOIB aiaPPuPu ( ( B eigFOIB aiaPPuPu ( ====4o-nhWnXumcvtophmvttttRimemacccousB a8cuto tutan@b TicdP TPuEaempccccccuPuI1 ccccccuPuI1 cc\ as L AsieOIB aiaPPuPu 0putan@b TicdP TPuEaem1pcuto ttttttttt/ B eigFOIB aiaPPuPu ( ====4o-nhWnXumcvtophmvttttRimemacccousB a8cuto tutan@b TicdP TPuEaempccccccuPuI1 ccccccuPuI1 cc\ n=============H=cccccuPuI1 c\ n=============H= n=======t(mt' FCHeii= End CHeigAd)NsAwtTablec eiaPPuPu uI1 c\ n======== B eigFOIB aiaPor) :rte&Ahk thaOh7s"aM,stand aiamsap=tiYcc ,Prr3A(sA xg(ana osdLR erIe CN.CofTFrd ,s) ccctb BdIPuPuPuPuterIe CN.CofTFrd ,s) r=eA BMt===C oim_ccctb BdITtindicatccctb BdITt atccctbpmmmm1uP=eright As )_e&n==,=: ,derCe Y5n sssssssum (ancyVcnc=,===catuPuPuuuEB ) =l=,=: ,derCe Y5) yIBPuSSSt==,=: ,derCe Y5n sssssssum (ancyVcnc=,===catur3A(sA xg(ana osdLR erIe CN.CofTFrd ,s) ccctb BdIPuPuPuPuterIe CN.CofTFrd ,s) e CN.CofTFrd ,ctnlllllr1veyVRc so"a(ThmvttttRimimvttttnlll'v' Diia== ailt' xgctnlllllr1veyVRc so"a(ThmvttttRimimvttttnlll'v' Diia== ailt' xgctnlllllr1veyVRc so"a(ThmvttttRimimvttttnlll'v' Dicc ,s) yIB ========biam8ccFcleg(ana mvtsll nc,s) yIB aia8cc Ucccurdo catUSTl=HHHHHou FAsrsap=n4nnnnnsrsap=n4nnnnnsrsaemCofVMn4nnnnpCall utercHancoHanI 2 P TPLccctim_ srsap=n4nnnnnsrsap=n4nnnnnsrsaemCofVMn4nnnnpCall utercHancoHanI 2 P TPLccctim_ srsap=n4nnnnnsrsap=n4nnnnnsrsaemCofVMn4nnnnpCall utercHancoHanI 2 P TPLccctim_ sspCall utercHancoHanI 2 P TPLccctim_ srsap=n4nnnnnsrsap=n4nnnnnsrsaemCofVMn4nnnnpCall utercHancoHanI 2 P TPLccctim_ sspCall utercHancoHanI 2 P TPLccctim_ srsap=n4nnnnnsrsap=n4nnnnnsrsaemCofVMn4nnnnpCall utercHancoHanI 2 P TPLccctim_ sspCall utercHancoyVRc so"a(ThmvttttRimimvttttnlll'v'iVia=uPuI1slt' ancoHanI cctbtim_ sspCall utercHancoHatan@bp=n4nnnnnsrsap=n4nnnnnsrsaemCofVMn4nnnnpCall utercHancoHanI 2 P TPLccctim_ sspCall u P TPnnsrs_ sspCall utercHancoyVRc so"a(ThmvttttRimimvttttnlll'v'iVia=uPuI1slt' an) yIB aia8cc ,s) yIB aia8cc (ana E OL=== ass_Proc meim iCHeight unYaded TonniCHeight unYadedyttttaded TonniCHna' e CN.CofTFrd ,ctnlllllr1veyVRc so"a(ThmvttttRimimvttttnlll'v' Diia== a4nnnnvttttRimimvccco iCHeighncoyVRc so"a(ThmvttttRimimvttttnlll'v'iVia=uPuI1sttRimimvccco iCHei)Hn4nnnnnsrsap=dtRimimvtn) ennnsrsap=n4nnnnnsrB iCHeighi_ o=a2istTr) yIB aia8cPuI1slt& TicdP TPuPuPPuPu ( BTEuPu1fsCORt' 6XiRAwtriCHeight As Hana mvttig, iI2 (mt' FuPuPuP y=sPuPuPuPuwltb BdITt oDuPuw oDuPuw oDuPuw oDuPuw oDuPuw oDuPuw oDuPuw oDuPuw oDuPuw oDuPuw oPu1fsCORt' 6X it===C oim_ccctb BdiVRc so"a(ThmvttttRimimvttttnluw oPu1fsLuPuw oPu1fsCORt' 6X ==,=: ,u B aia8cPu "cMr oim_0SpurUilt' c, iI2 (mt' FuPuPuP y=sPuPu2 (mt' FuPa(ThmvttttRimimvttttnluw oPu1fsLuPuw oPu1fsCORt' 6X ==,=: ,u b gu b gu b gu b gu b gu b g0vtn) ennnsrsap=n4nnnnnsrB iCHeighi_ o=a2istTr) yIB aiImaccccccca oeous)CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"aMasuastancemaccccccccmN=,=do l yIB ls ox=A CatCHeight ipuEvte,i=====s"8At lngm aiam8cct lngm0 Ou.g(iCHeight As s HRRRRRRRRCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC gutttRimimvt ill'counteighp nc ht AsssssssrrrrrrrrrrtPu1fsCORt' 6X ==,=: sap=tim_0SectFcdTablec eeghk B aia8cPu "cMr oim_0SpurUilt' c, iI2 (mt' FuPuPtim_ srsap=n4P0SectFcdTableap=n4e_PuPuPuPuwltb BZPuutancecctrnc ht AssIirPancecclllr1veyrrrrrrrrrrrrrrrrrcCCCCCCCCCCCCCCCCCCCC yIB Rvccco iCHeighncoyVRc so"a(ThmvttttRimimvttttnlll'v'iVia=uPuI1sttRimimvccco iCH b gu b 6X =ht AssIirPancecclllr1veyrrrrrrrrrrrrrrrrrcCCCCCCCCCCCCCCna E rlA()d ere1 Iteight 'seA1CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC gutttRimimvt ill'counteighp nc ht AsssssssrrrrrrrrrrtPu1fsCORt' 6X ==,=: sap=tim_0SectFcdTablec eeghk B aia8cPu "cMr oim_0SpurUilt' c, iI2 (mt' FuPuPtim_ RSo ,=: ll u Pw oPu1fsCORt' 61Iancem=== all uterpuEvte,i=====s"8At lngm aiam8cct lngm0 Ou.g(iCHeight As s HR sspCall utercHancoHatan@bp=n4nnnnnRt' 6XiRAwtriCHeight As Hana mvttig, iI2 (mt' FuPuPuP y=sPuPui_hWn Hata "cMr oeo(ancyVcnc=,===catur3A(sA xg(ana osdLR erIe CN.CofTFrd .Coarsapnss N3bSapFrer9u_0SpubA L(E rD=====OIB aia8cc ,s) ccctb BdIPuPuPuPuto As't=================) ccstanctTabuPeb1fia== ailtrempcCoarsapnss N3bSapFrer9u_0SpubA L(o' FuPuPtim_ srsap=n4P0ma== ailtrempcCoarI========iap= eiCHeigAd)N e xgc r=eA B Pw W"cMr oim_0SpeigAd)N e xgc r=eA B Pw W"cCCCCCCCCCCCCCCCCCCCCCCCCCnll-o As't===========CCCCC P -o As't=====uI1 rsap=n Pw W mo, i=ERCx6iguCallCHeiigAd ailtrempcCoarI========iap= eiCHeigAdec eeghtk s=a2istsolo' bOef(Puwlltremlng(iCHeieeight As s HfVMn4 FuPuPt=)NPui<n@b ecctbccg 6=a eiCHeigAd)Nnrsap=n4nnnnnsrsap=n4nB aiC2==Rt' Funous) =Aric Ucccurdo cayIB aiap=n4nnnnnsrsap=n4nB aiC2==Rt' FunousB aiC2==Rt' Funou6>dccceukhthoo xg Cat ========b====================== eccF End kRwng_hWn yIB aiam8ccFcleium (ancyVal lng_hWn y=sPunous) =clllr1veyrrrrrrrrrrrrrrrrrcCCCCCCCCCCCCCCCCCCCC yIB Rvccco iCHeighncoyVRc so"a(ThmvttttRimimvttttnlll'v'iVia=uPuI1sttRimimvccco iCH b gu b 6X cccurdo cayIB aiapT6ailt''iViaa,so gu b ay1ps/gu b ay1im_ tcccT@Lo ,derCe Y5n sssssseia== ai2mf======CCCCC aspCal25lec ysap=tCCCCCCCCCC============= eccF End kRwng_hWn yIB aiam8ccFcleium (ancyVal lng_hWn y=sPunous) =clllr1veyrrrrrrrrrrrrrrrrrcCCCCCCCCCCCCCCCCCCCC yIB Rvccco iCHeighncoyVRc so"a(ThmvttttRimimvttttnlll'v'iVia=uPuI1sttRimimvccco iCH b gu b 6X ccceeclllr1veyrrrrrn xg eccF End kRwng_ll'v'iVia=uPuI1sttRimimvccco iCH b gu b 6X ccceeclllr1veyrrrrrn xg eccF End kRwng_ll'v'iVia=uPuI1sttRimimvccco iCH b gu b 6X ccceeclllr1veyrrrrrn xg eccF End kRwng_ll'v'iVia=uPuI1sttRimimvccco iCH b guc=========CCCCC P -o As't=====uI1 rsap=n"Ce gAd Gc1fia== ailt' Fu.cccleavipur3A(y &te Sub TrackMou== CofV leaving the indic rrrPaanceccHc rrrPAs L Asied AsB_S ddwNa"ocHc rrrPAs L Asied AsvnkMou== C2HeiigAd Gc1fia=cccbcl"aMasssssssAgiednkMou(CCCCCCCCCCCCCCCCCia=uPuI1sttRimimvccco iCH b gu b 6X ccceecCCCCCCCCCCCCCC yIB Rvccco inkMo eiigAd Gc1fia=cccbcl"aMassssupmvttttnlll'v' Diia== ailt' gu b 6X ccc_6X ccc_6X FAsassssupmv&ileUiiiiiCa As'teMooooooooooooo b1fUOp lngbeous) Ticd= aVz OL..he indicatedo so"aMasssssssssssssssssssL..he indicatedo so"aMasssssssssssssssssssL..he indicatedo so"aMasssssssssssssssssssL..he indicatedo so"aMasssssssssssssssssssL..he indicatedo so"aMasssssssiiiiiCa As'teMooooooooooooo b1fUOp lngbeous) Ticd= aVz OL..he indicatedo so"aMasssssssssssssssssssL..he indi pd lng_ u oi====u.u o b1fUOp lngbeous) ssssssssssssssssL..he indi pd lng_ u oi====u.u o b1fUOp lngbeous) ssssssssssssOp lngbeous) ssssssssssssOp lngbeoaded TonniCHeigh meimer x fte&Ah,LLLLLLaT====u. ,Bywnd Iu Sa'acccccccccHadistancemacccccccccHapt unYadeter) rrrrrr (m iCHeight 'seArc eeDm iCHeight 'seArc eeDm iCHeighiCHets Liled r) yIt 'seAo Funou6>icatedo so"aMasiiiii9twhled r) yIt 'seAo Funou6>iCCCC 6X ccc_6X ccc_6X FAsassssupmv&ileUiiiiiCa As'teMooooooooooooo b1fUOp lngbeous) Ticd= aVz OL..leaving the indic rrrPaanciCHeTabfmmmmm1uP=errr=eA =euP..u cap=n1veyrrrrrn xg Sindic rrrPaanciCHssssssAgied AEnceccHc ttttnlll'v'ssssL..he indicatedo so"aMasssssssssssssssssssL..he indicatedo so"aMasssssssiiiiiCa As'teMoooooo)Nnrsap=n4nnniiiiiCa rrrrrrrr======Cb1fUOp lngbeous) ssssssssssssOp l21 eiCHeigrrrn Ca Funous) =ousrrrrcCCCCCCCCCCCCCCCCCCCCC A,sssupmv&ileUiiiiiCa As'teMooooooook yIB ls ox=A Caous) r1veyrrrrrn xg eccF End e xgc r=eA B Pw W"cCCcbuc ls ox=A Caous) rileUiiiiiCa As9u_0SpubA L(E rD=====OIB aia8cc ,s) c do so"aMasssssssssse ssssssA Casssse ssssssA CasssX ccc_6X FAsassssupmv&ileUiiiiiCa As't unYadovttt bIhe ypHa===,=: ,derCemp 'TablecccccHc inSErIun =AridccccHc inn tb=errrrmRFraa(sstanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPanceccHc rrrPa(E rD=====OIB aia8cc ,s) ccctb Amp ICrPanc do so"aMasssssssssse ssssssA Casssse ssssssA CasssX ccc_6X FAsassssup "cMr oim_0SpurUilt' c, iI2 (mt' FuPuPuP y=sPuPu2 (mt' FuPa(ThmvtttiCCCpmt' FuPa(ThmvtttiCCCpmt' FuPa(ThmvtttiCCCcctbccgurn xg S<u Pw sssssAsssssssss ssssscc_6X ccsAsssssssss sss unYad,r.cccleavipur3AS' FuPa(T ii m toa(The "tocHaniim8ccccrrPaancyVal lng_hWn yIB aiam8ccFcleiccccHc inn t'p "cMr oim_0SpurrPanceccHiam8cc unYadovttt bIhe yam8cnAs L AsiwrUilt' c, iI2 (mt' FuPuPuP y=sPuPu2 (mt' FuPa(ThmvtttiCCCpmt'ctb Bmt' FuPa(ThmvtttiCCCcctbccguhncoyVRc so"a(C yIB Rvcccocr.+c(ThmvtttiCCCccOp lng) ccctb Amp 1 eiCHeiancyVal lng_Ty=sPuPu2 (mt' FuPa(ThmvtttiCCCpmt'ctb Bmt' FuPa(Thmv 'Ta guc=========CCCCC hmvtttiCCCpmt'ctb Bmt' FuPa(Thms) dlen' xg(ana mvtttt(iCHeight AsioI,3A(sATng) ccctb Amp 1p &te Sub TrL..he indicatedo sSTrL..he indica,icaotedo sicatesssssssssL..he iiiCa As'teMoooooolOunouCC hmvtttiCCCpmt'ctb Bmt' FuPa(Thms) dlen' eiCHeiancyVal lng_Ty=sPuPu2 (mt' FuPa(Thmnou6><m =A Calasss ccctb Am_Ty=I1sttRimimvccco iccHc rrrPanceccHc rrrPanceccHp Sa'accmp 1p &torxaa'accmp 1p &torxaa'Hc rPtedodp 1p &te Ss(ot"unous) =Ar i_PuPuP TPuPuPPPot )b Bdl nc Pu ssL..he indicatedoeuk Gc1 hmvtt'A 4nIVMn4 a guupmv&illnIVMi lnoCCCCCCCCCCCCCCCCCCn eccF End kRwng_ll'v'i'Hc r ou F=a ucTPuPuPPuPu1fia==TPuPuPPuPu1fia==TPuPuPPuPssAg so"a(ThmvttttRi hmvttccbcl"aMasssssssAgipdyVRch'T indicatedo so"aMPuPu2 (mt'= aVz OL..leavinetnlll'v' Diia== ailt' tF=a ucTPctFcdTablec eeg dlen' xg(ana mvtttt(iCHeight AsioI,3A(sATng) ccctb Amp 1p &te Sub TrL..he indicatedo sSTrL..he indica,icaotedo sicatesssssssssL..he iiiCa As'teMoooooolOunouCC hmvtttiCCCpmt'ctb Bmt' FuPa(Thms) dlen' eiCHeiancyVal lng_Ty=, :rte&Ahk thaOh7o so"aMasssssssssssssssssssL..he indi pd lng_ u oi====u.u o b1fUOp lngbeo=nVgbeous) T2(Thm indi pd a"ocHc rcTPctFcdTablec eegisiCCCCCCCCCClng_ r.cccleavipur3AS' FuPa(T ii gu b e2'e&Ahk thammm1uP=errr=eA Vp=n4e_PuPuPuPuwltb Be b e2'e&Ah> Vp=n4e_PuPuwltb Be b Oh7s"aM,Eiam8cT_PuPuPuPtt'AtRt .or)cd= aVz OL...ccca wms (tRt i_uSSt oim_0Spuccca wms (uPPuPu1m_0SpurrPanceccHispTbfccccccdTabfmmmmm1uP=eHeiaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaP=eHeiaaaaaaaaaaaaaaaaaaaaaaaaaaaaigAdec eeghtk s=a2istsolo' bOef(,ir"ItoM_ y s=a2istsolnnnsrsaemtRimimvttttnlll'v' Diia== a4nnnna oeous) Ticd= aVz OL...ccca wms (after) =ArcccccccHad oeous) TircccccccHad oeous)Ad)NPuir ou FAsap= eiCHtRTimvttt bIf (Rt End If rIal lng_ 5mbri'vA f(sn ter) yIB ls E OL=== ass_Proc tiYap=aCT lng_hWn y=sPuPudcounteied so"a(ThmvttttR_'t oeous)Ad)NPuir ou FAsap= eiCHtRTimvttt bIf (Rt End If rIal lng_ 5mbri'vA f(sn ter) yIB ls E OL=== ass_Proc tiYap=aCT == ass_Proc tiYapmn terTrL..he indicatedo sSTrLsN indAd)NPuir ou FAsae_PuPuwltb Be b uka lllllllllllllllllllllllllllllllllllllllllllr) CHeiigAdc ri'vAC Be b uka bnnna oeous) Ticd= rrPanceccHpndicateoI,=: ,derCemp 'TablecccccHc igFOIB aiaPPuPugor)er(Y5n PuPt .or) :rte&Ahk uka ll_tnlll'v'Lr I(aMPuPu2 (mt'= aVz srCemp so"aMasssssssssssP=errr=eA Vp=n4e_PuPuPuPuwltb Be b e2'e&Ah> Vp=n4e_PuPuwltb Be b Oh7s"aM,Eiam8cT_PuPuPuPtt'AtRt .or)cd= aVz OL...ccca wms (tRt i_uSSt oim_0Spuccca wms (uPPuPu1m_0SpurrPanceccHispTbfccccccdTabfmmmmm1uP=eHeiaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa=iap= gbeous) ssssssssssssssssL..he indi pd atCallCHeiigAd Gaaaaaaaa==e..he inPu1fia==ecctb B rPuPu1fPuPu1m_0SpurrPancSaaaaaaatous) =ous) TicdP TPuP As'sL..he indi pd lnbeous) Ticd= aVzvccco inkMo eiigAd Gc1fg c z("Aeou P=e_ProczvcccoVzvccigAd Gc1fg c z("Aeou MRg b1fUOpMOIB a soCDi y Asrsap=tim_0SectFcdTabfn4e_PuPuP gu e&Ahk thammm1uP=inPu1fia==ecctb B wms lllll=ecctb B wms lllll=ecctb B wms lllll=ecctb B wms lllll=ecctb B wms lllll=ecctb B wms lllll=ell=ec8cct lngm0 Ourc1fg c z("Aeou P=e_ProczvcccoVzvccigAd Gc1fg c z("Aeou MRg b1fUOpMOIB a soCDi y Asrsap=tim_0SectFcdTabfalt' gu (lt' gu (lt' gu (lt' gu (lt' gu (lt' gu (lt' gu (lt' gu (lt' aXlt' u P=e_Proczvcccalll'v'iVia=uPuI1slt' an) and aiae_Proczvcaaaaad oeous)Ad)NPuirczvcaaaaat i_uSSt oim_0Spuccca wms (uPPuPu1m_0SpurrPanceccHispTbfccccccdTabfmmmmm1uP=eHeiaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaauPu1fia=rmtPaaaaaaaaaaaaasss o bcl"aUtaaaaatb BdITt oD eiCHeiaaaaaaaaaaaaaaaaauPu1fia=rmtPaaaaaaaaaa=, Am_Ty=I1sttRimimvccco laaaas'ter)))d ( u"+CCCCCC2nia=r=aC. ( na mvttttnlll'v_asssspbeassailt' tF=a ucTPctFcdTa blec y AePuitigFOIB aiaPPuuPPrD=====OIB aia8Brr ooooogaehooilt' tF=a ucTPctFcdTa blec yyyyyyyyyyyyyy=a ucTPctFcdTa bpd AePuitigFOIB aiaPu1fia=rmtPaaaaaaaaaa=ailt' tF=a ucTPctFcdTa blec EEEEEEEEVAss z("Aeoaaaaaaaaaaaaaaaaaaaaiae_Pgu (aaaaaaaaa=iap= gbeous) ssssssssss( ter) yPuP y=sPuPuPuPuti.he indi pd atCallCTProczo so"aMasssssssiiiiiCa As'teMoooooo)Nnrsap=n4nnniiiiiCa4nnniiiiiccccc0A================= .helCHeiaaaaaPuPuPuPuPuPmvttVp... oaaaaaaaaaaaaa,===uI1 rsap=n Pw WS ou FAsap= eiCHtRTsaaaat 'seAs'eder yibIf End==u.g(ana osdLR pderCx6>n Pr S"ana osdLR pderCx6>dccceukht 'seAs'eder yib t'eder yirsap=tim gu (lt'aaaaaatousaaaaaaaaaaaaaaaaar)cd= aVz OL...ccca wms (tRt i_NPuir ou FAsap= eiCHtRTimvttt bb (tRt iaeCHtRiosdLR FAsap= eiCHtRTimvttim r(Y5n mPrr3A(sAoCPrs( CalllllllllF============icatuPuPuuuuuuuPuPuPuP eiCHtRTimvCleA((((((((((((((( idTa blec EEE(((((1STrL..he indicactb Bmt' FuPa(ThmvtttiCC=a2irEEE((&LR FAsap= eiCHtRTimvttim r(Y5n mPrr3A(sAoCPrs( CalllllllllF============icatuPuPuuuugim iCHea22222Sa'accmp 1p &torxaa'accmp 1p &torxaa'Hc rPtedodp 1p &te Ss(ot"unous) =Ar i_PuPuP TPuPuPPPot )b Bdlnniiiii ous) TicdP TPuP As'sL..he indi pd lnbeouss) TicdP TAd)NPuir ou F=a eiCHei r3A( eiCHtRTmvttim r(Y5Yapmn terTrL..he indicatedo sSTrLsN inCCCCCCCCCC yIB Rvccco iCHeonCCRedo sSTrLsN A(sAoCPrs( CalllllllllF============icatuPuPuuuuuuuPuPuPuP eiCHtRTimvCleA((((((((((((((( TPuP As'sL..he indi pd lnbeoetea22am8ccFcleium (ancyVal lng_htRTimvCleA((((((((((((((( TPuP As'sL..he indi pd lnbeoetea22am8ccFcleium (anc'v' Diia== ailt' ========num (pccccccuPuto As(========nulid..he indi pd lnbeblec EM te indi pd lnbLsN A(sAoCMuP As'sL..he indi pd PuPuPa(Thms)mEA(sAoCMuP As'sL..he indi pdr) yIB ls E OL=== ass_Proi pdr) yIB ls E OL=== ass_Proi B ls E OL=== ap=n4nnnnnsrsaa ucTPctFcdTa blesgL=== ass_Proi B tya(Thms)mEA(sAoCMuP As'sL..lccYdcounteiguCal em8ccIa soCDi y Asrsap=tim_0SectF E OL=== ap=n4nnnnnsrsa============= .helCHebie=== apP eAoCMuP As'sL..lccYdcounteiguCal em8ccIa soCDssg, s-cccc) =A Call nc y Asrsap=tim_0SectFcdTabfmmmmm1uP=errr=OL=== a soCDssg,uP Aatelec EEE(((((1STrDfSPPuPu ( BTEuPu1ou Pd)NPuir Cemp so"aMassss2 A sap= eiCHeigAd)NPuir ou FAsap= eiCHeigAd)NPuipcl"aMaA Ca rrrPanceccHc rrrPa(E rDwr(E rAr i_PuPuP TPuPrtAoCMuP ceccA sap= c1fg c z("Aeou P=e_B aiam8ccFcleium (ancyVal lnraiam8ccAs) yyPaaaaaaPuPuuDssg,uP Aatelec EEB ls E O sap= c1fg c z("Aeou PrrrPanccl"aMuuPueo=nVgboesrsaa ucTPctr==s"ueuPuI1sttRimonceccHc IigAd)NPuir ou FAsap= eiCHeigAd)NPuir ou FL=== ap=n4i=s"u0Pu ====b B rPuPu1Ad)Nttim yaaaal ooooooooooSyPuir ou FeccHiHHHHHHHHHHHHfnnnvIaal oooooooooowS c1fg c=tMvt AssIirPancecclllr1veyoowS c1fg c=tMvt AssIirPan' tF=a ucTPctFcdTa blec yyyyyyyyyyyyyy=a ucTPctFcdTa bpd AePuitigFOIB aiaPu1fia=rmtPlec yyyyyyyyyyyyyy=a ucTPctFcdTa s=a ucTPctFcdTa s=a ucTPctFcdTa s=a ucTPctFcdTa s=a ucTPctFcdTa s=a ucTPctFcg ccoa ucTPctFcdTa blis=a ucTPctFcdTa s=a ucTPctFcdTa s=a ucTPctFcdTa s=a ucTPctFcdTa s=a ucTPctFcg ccoa ucTPctFcdTa blis=a ucTPctFcdTa s=a ucTPctFcdTa s=a ucTPctFcdTa s=a ucTPctFcdTa s=a ucTPcts1m_0SpurrP xg a ucTPctFcdTa s=(FcdTTed r) yIucTPctFcdTa s=a ucTPctFcdTa s=a ucTPcts1m_0SpurrP xg a ucTPctFcdTa s=(FcdTTed r) yIucTPctFcdTa s=a ucTPctFctFcdTa s=l=ecctb B wms lllll=ecctb B wms lllll=ecctb B wms lllll=ecctb B wms lllll=ecctb B wms lllll=ell=ec8cct lngm0 Ourc1fg c z("Aeou P=e_ProczvcccoVzvccigAd 3u.g(ana osdLR pderCx6>n P A Caous) r1veyrrrrrn xg eccF End e xgc r=eA B Pw W"cCCcbuc ls ox=A Caous) rileUiiiiiCa As9u_0SpubA L(E rD=====OIB aia8cc ,s) c do so"aMasssssssssse ssssssA CassererCx6r" eiCHecgilt''iViaa,so gu b ay1ps/gu b ay1im_ tcccT@Lo ,derCe Y5n sssssseTPctLong = &te Sub TrackMou== CofV leaving the indic rrrPaanceccHc rrrPAs L Asied AsB_S dds1RRRRRRRRRRRRRRRRRCCx6r" el=ec8cct lngm0RRRRC yaaaal ooooooooooSyPuir ou FeccHiHHHHHHHHHHHHfnnnvIaal oooooooooowS c1fg c=tMvt AssIirPancecclaia8cc e2'oooSyPuiraowS c1fg c=lllll=ecctb B cts1m_0SpurrP xg a uca, c z("Aeo,c=lllll=ecctb B cts1m_0SpurrP xg a u R(((1Sctb B cts1m_0Spdb B cts1m_0Spdb c1fg c=lllllTrP xg a ccoa ucTPctFb B ctsllllytb B cts1m_0naaaaaaaaaajsllllytts1m_0SpurrP xg a ucTPctFcdTaus) rileUiiiiiCaoSms) s=(FcdTTed ,uP AatctFcdTa cTTed ,uP AatcturrrrrrtPu1fsCORt' _.cccleavvvvvvvvvmrtPu1fsdb B ackMogu b ay1ps/guiCaoSms) sm,ana E OL=== ass_Proc meim iCHeight unYaded T&te Sub TrackMofckMogu b ay1ps/umimvttguCaooooo b1ssssA CassererCIcEIa ucTsT(HHHHooo b1ssssA 0TPct=lllllTrP xg a ccoa ucTPctFb B ctsllllytb B cts1m_0naaaaaaaaaajsllllytts1m_0Spu _.cccllllybC&(IB ls E OL=saaaajsllllytts1m_0SpurrP xg a ucTPrrrrr======Cb1fUOp lngbeous) sb B cts1m_0Spdb B cts1m_0Spdb c1fg c=lllllTrP xg a ccoa ucTPctFb B ctsllllytb B cts1m_0naaaaaaaaaaj E OL=== ass cts1m_0Stgxgc r=eA(FcdTts1m_0Sap=n4e_PuatuPuPuuuEB ) =l=,=: ,derCe Y5) yIBPuSSjslll e Y5) _PuatuPtbccg ccctFhEvna os Y5) _Pus A =Ar i_PuPuP TPuPuPPPot )b Bdl nc Pu bu0Pu ====CCCCCCCCCCCCCCCCCCC"a(CCCCCCCCCCC"a(CC meim iCHeight unYaded T&te Sub Trazzzzzzzzzzzzzzzzzzz(ub Trakr1Sctb B cts1m_0Spailt' lytb CCCCCC============= eccF End kRwng_hWHzzzzzzzzE,=: ,derCei_PuPuPulccccHc inSErIun =Aridccci=HeigAd)N e xgc r=eA B Pw W"cMr oajsllllytts1m_0SpurrP xg Dlllytts1m_0SpurrP xg Dlllvvvvajsllllytts=AridcccTMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM As'sL..lchlll _0naaaaaaaaaajsllllytts1m_4e_Peo,c=lllll,derCei_PuPuPulccccHc inSErIun =Aridccci=HeigAd)N e xgc r=eA B Pw W"cMr oajsllllytts1m_0SpurrP xg Dlllytts1m_0SpurrP xg Dlllvvvvajsllllytts=AridcccTMMMMMMMMMMMMMMMMMMMMMistts1m_0SpurrP xg ia=uPuI1st'ctb Bmt' FuPa(ThmvtttiCCCccDm8ceiCHecgilt''iViaaiam8ccAs) yyPaaaaaaPuPuuDssgiiiiiCa APot ) b ay1ps/guiCaoSms) sm,ana E Oa=uPuI1st'ctb Bmt' FuPa(ThmvtttiCCCccDm8ceiCHecgi<ttiC) b ay15b0SpurrPsttRa ucTPctFcdTa s=a ucTPctFc ct e xgc r=eA B Pw W"cMr oajsllllytts1m_0SpurrP xg Dlllytts1m_0SpurrP xg Dlllvvvvajsllllytts=Ari(ts1m_0SpurrP xg Dlllytts1m_0SpurrP xg Dlllvvvvajsllllytts=Ari(ts1m_0SpurrP xg Dlllytts1m_0SpbdLR pderCx bu0Pu ====CCCCCCCCCCCCCCCCCCC"a(CCCCCCCCCCC"a(CC meim iCHeight unYaded T&te Sub Trazzzzzzzzzzzzzzzzzzz(ub Trakr1Sctb B cts1m_0Spa iCHeight unYaded T&te Sub Trazzzzzzzzzzzzzzzzzzz(dsPuPulccccHc inSErcllllytts1m_0SpurrP xg Dlllytts1m_0SpurrP xg Dlllvvvvajsllllytts=AridcccTMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM As'sL..lchlll _0naaaaaaaaaajsllllytts1m_4e_Peo,c=lllll,derCei_PuPuPulccccHc inSErIun =Aridccci=HeigAd)N e xgc r=eA B Pw W"cMr oajsllllytts1mdap= zzzzzzzzzzzzzz(ub Trakr1Scto 0SpurrP xg Ddleaving the indic rrrPaanceccHc rrrPAs L Asied AsB_S dds1RRRRRRRRRRRRRRRRRCCx6r" el=ec8cct lngm0RRRRC yalt'VBzzzzzzzzzz(ub Trakr6r" el=ec8cct lngm0RRRRC yalt'VBzzzzzzzzzz(ub Trakr6r" el=ec8cct lngm0RRRRC yalt'VBllllytts1mdap= zzzzzzzzzzzzzz(ub Trakr1Scto 0SpurrP xg Ddleaving the indic rrrPaanceccHc rrrPAs L Asied AsB_S dds1w W"cMr oallllytts1mdap= zzzzzzzzzzzzzz(ub Trakr1Scto 0SpurrP xg Ddleaving the indTfttiCCCccDW"cMr oallllytts1mdapr" elr os =eA B Pw W"cMr oan0SpuMr aajsl,PIun rDr6r" el=ec8cct lngm0RRRRC yalt'VBzzzzzzzzzz(ub Tradap ,_ytts1mdap= zzzzzzzzzzzzzz(uSErIun =Aridccci=HeigAd)NiMr i y Asrsap=tim_0SectFcdanciCHeTaznceccHp i y Asrsapaass_Proi B ls E OL=== ap=n4nnnnnsrsaa ucTPctFcdTa blesgL=== ass_Proi B tya(Thms)mEA(sAoCM Asrsapaass_Proi ACCCCCCCCCCCCC"a(CCCCCCCCCCC"a(CC meim iCHeight unYaded T&te Sub Trazzzzzzzzzzzzzzzzzzz(ub TrakNllllTrP xg a ccoa u dBindi pd lnbebg ctseMMMMMMes1mdap= zzzzzzza rrrPaes1mts1m_4e_6nvvvvajsllllytts=Ari(ts1m_0SpurrP xg DlloB ctbc i=tiYeous)= zz=eA B Pw WdlllllllesL..lchlll _0naaaaaaaaaajsllllytts1m_4e_Peo,c=lllll,derCei_PuPuPuMMMMaaaaaaaaaaaaaaaaaaaaaaaaaaaaas=Ari(terCei_PuPuPuMMMMaaaaaaaaaaaaaaCC meim iCHeight unYaded T&ss_Proi ACCCCCCCCCCCCC"a(CCCCCCCCCCC"a(CaWzzzzzz(uIlT&ss_PTPctFcdTa s=(F_Proi ACCCCC=akr1ScAsrsapaass_Proi B lmdssererCx6ri y Asrsap=timezzzzzzzzzzzzz(ub Trakr1Scto 0Sp3(y 0Ss aoSms) uMMMMaaaaaaaaaaaaaayyyyyyywe...u Sa'acayyyyyyywe...u Sa'acayyyyyyywe...u Sa'acayyyyyyywe...u S1mdap= z..u S1mda5=:RRRRRd"cMr ossssssL..m2222222222222222222222222SCCA..u Sa'acayyyyyyywe...u Sa'acayyyyyyywe...u S1mdapAae_PuPuwltb Be b uka lllllllllllllllllllllllllllllllllllllllllllr) CHeiigAdc ri'vAC Be b uka bnnnaim_0SectFcdanciCHeTaznceccflllllllllllllllllllllllCCA..u 4t unYadede s"Aeou PccmN=,=dosyyyyywe.,Caaaaaaaa s"ACx6ri y Asrsap=timezzzzzzziBi.ccco, ou FAsaMpllesL..lchlll _0naaaaaaaaaajsllllytts1m_4e_Peo,c=lllll,derCei_PuPuPuMMMMaaaaaaaaaaaaaaaaaaaaaaaaaaaaas=Ari(terCei_PuPumvtttiCCCpmt'ctb Bmt' Fa===CCCCCCUHeiigAdc ri'vAC ctseMMMM ls"aM,Eiam8cT_PuPuPuPtt'AtRCei_PuPuPusAmt' FuPCCCCP=tb Bazncex6igu zzzzzzza rrra0Peo,c=lllll,derCei_Da0i_ProczvcccoVzvbim_ sre sTsssssL..he indi CP=tb Bazncex6igu zzzzzzza rrra0Peo,c=lllll,derCei_Da0i_ProczvcccoVzvbim_ sre sTsssssL..he indi CP=tb Bazncex6igu zzzzzzza rrra0Peo,c=lllll,derCei_Da0i_ProczvcccoVzvbim_ sre sTsssssL..heytB ou FAsa urUilt' c, iI2 (mtoa,so u PccmN=,=dosyyyyywe.,ssssse(o 5'rer9u_0SpubA L(E rD=====OIB aia8cc ,s) ccctb Bssssse(o 5'rer9uti'vAC ctseMMMc=lllll,derCei_Da0i_ProczvcccoVzvbim_ sre sTsssssL..he indi CP=tb Bazncex6igu zra0uPa(Ths y Asc If bTerColo(RtReeeeetRAwe...u Sa'accccccclll, If bTerColo(RtReeeeViguccclwnggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg(ITgL Asied AsB_S"db Bmt' FuPa(Thms) dlen' eiCH sTsstS"db bnnnaim_0SectFcdanciCHecayyyyyyywe...u Sa'acayyyyyyywe...u Sa'acayyyyyyywe...u S1mdap= z..u S1mda5=:RRRRRd"cMr ossssssL..m2222222222222222222222222SCCA..u Sa'acayyyyyyywe...u Sa'acayyyyyyywe...u S1mdapAae_PuPuwltb Be b uka lllllllllllllllllllllllllllllllllllllllllllca(sstanchhhhhHEodlngm0 OllllllllllllllllllllllllllvlllllllllllleancyV=Dh.u S1mdap= z..u S1mda5=:RRRRRd"cMr ossssssL..m2222222222222222222222222SCCA..u Sa'acayyyyyyywe...u Sa'acayyyyyyywe...u S1mdapAae_PuPuwltb Be b uka llllllllllllllcflllllllllllleMoooooo)NnrssssL..m22222222222..u 0 Ou.g(iCHeight As s yaltmi_Da0i_Pllllllll AssIirPanceccla) yIB ) = EuwltbgPanceccla) yIB ) = EuwltbgPanceccla) yIB ) = EuwltbgPanceccla) yIB ) = EuwltbgPanceccla)p1uwltb Be b uka ll EF===u.ubh ng, i_Pusap=ADaHOb1fUOp lngbeous) sb B derCei_Da0i_ProczvcccoVzvbim_ sre cex6igu zzzzzzza rrra0PeoleaMOIB0 ou FAsa urUilt' c, iI2 (mtoa,so u PccmN=,=dosyyyyywe.,ssssse(o 5'rer9u_0SpubA L(E rD=====OIB aia8cc ,s) ccctb Bsssss sTsstS"db bnnnaim_0SectFcdanciCHecayyyyyyywe...u Sa'acayyyyyyywe...u Sa'acayyyyyyywe...u S1mdap= z..u S1mda5=:RRRRRd"cMr ossssssL..m222222222Icts1444444444444444444444444444blllllllllllllcfllllllllll mPrr3A(sAoCPrs( C"1mdapAcCoarsapnss N3bSapFrer9u_0SpubA L(o' FuPuPtim_ srsap=n4P0ma== ailtrempcCoarI========iap= eiCHeigAeLccctcla) yIB ) = EuwltbgPanceccla) yIB ) = EuwltbgPanceccla) yIB ) = Euwltn,deanciC..u Sa'acayyyyyyywe...u Sa'acayyyyyyywe...u S1mdap= z..u S1mda5=:RRRRRd"cMr ossssssL..m222222222cMrwe...u Sa'accccccclll, If bTerColo(RtReeeeViguccclwnggggg=,=dltrempcCoarI===. dlttrempcCoarI===. dlB0 ou FAsa urUillllll,derCei_PuPuPUillllll,derCei_PuPuPUillllll,(clll, If bTerColollll,(clll, If bT ws ccc_6X daderCei_Pu,derCei_PuPs) Ticd= aVz OL..he indicatedo so"aMasssssssssssssssssssL..he indddddddddddddd=tR_'t oeous)Ad)NPuir og.he 1m_0SpurrP xg ia=PancePctFyyyyyyywe...u S1mdap=FyyyyyyP x_,d rrra0Peo,c=lllll,derCei_Da0i_PrFyyyyyP , If y,hll"ItETEuPu1ou Pd)NPuwaia8cc ,s) ccctMMaaaaaaaaaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaao sssur srPuPUillllll,dayyyyyyywe...ucll,dayyv6aaaayy aaaaao sssurmt' FuPa(Thms) ur srsaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaao sssur srPuPUillllll,dayyyyyyywe...ucll,dayyv6aaaayy aaaaao sssurmt' FuPa(Thms) ur srsaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaao sssur srPuPUillllll,dayyyyyyywe...ucll,dayyv6aaaayy aaaaao sssurmt' FuPa(aaaaao syyyyyywe...u S1mdap= z..u S1mda5=:RRRRRd"cMr aaw aiae_Proczis1mdrncoHatan@b z..ur sraanicdTa billllll,dayyyyyyywe...ucyyyyyyywe...ucyyllllll,dTPctFcdTa s=a ucTPctFcdTa s=a ucTPcSi EEEEEEEEEEEEEEEEEuPuPuPuPuto As'ter) yIB ) = End rn(SvttVp... tancec e,ir"ItoM_ yIB a gim iCHeiRAwtriCHeight As s HaOh7sCORt' Funous) =ouhms)w W"1lmmt'ctb Bmt' FucTPd TonniCHeighBs sssurmt'oa,swu =ouhms)w W"sDnaaah oim_0Spuccca wms (uPP== ass_Proc ',BBaaaatatan@b z..ur sraanicdTa billllll,dayyyyyyywe...ucyyyyyyywe...ucyyllllll,dTPctFcdTa s=a ucTPctFcdTa s=a ucTPcSi EEEEEEEEEEEEEEEEEuPuPuPuPuto AB a gim iCHeiRAwtRscayyyouhms)w W"sDnaaah oim_ucTPdtmuto AB au =ouh'EEEEEuPuPuPuPutayy z..ur srsaaaaaayy z..ur srsaaaaaao sssur srPuPUillllll,dayyyyyyywe...ucll,dayyv6aaaayy aaaaao sssurmt' FuPa(Thms),E z..ur srsaaaaaayy z..ur srceccHc aaaaayy z..ur srceccHc aaaaayy z..ur srceccHc aaaaayy z..ur srceccHc aaaaayy z..ur srceccHc aaaaayy z..ur srceccHc aaa aaaaayy z..ur srceccHc aaaaayy z..ur srceccHc aaaaayy z..ur srceccHc aaa aaaaayy z..ur srceccHc aaaaayy z..ur srceccHc aaaayllllll,dTPctFaah oim_0Sp 1p &torxaa'acc'n2222Icts1444444444444444444444444444blllllllllllllcfllllllllll mPrr3A(sAoCPrs( C"1mdapAc44blptP0ma== ailtrempcCoarI=======Vp... tancec e,4444LA mPrr3A(sAoCPrs( C"1mdapAi2"1mdapAi ooiCHtRT======Vp... tancec e,4444LA mP====Vppsaayy z..ur srcesCCCpmt'ctb Bmt' Fa=L..he ind Op laaaaaaaaaaaaayy z..ur srsaaaaaayy z..ur srsaaaaaap laaaaaaaaaaaaaaaaaaayy z..ur sr dlttrempcCoarI===. dlB0 ou FAsa urUillllll,derCei_PuPuPUillllll,derCei_PuPuPUillllll,(clll, If bTerlllllllluPuu =ouhms)w W"sDhe isaaaa=ouhmsr dlttrempcCoa z..ur srsaaauPP==Vp.._0Spdb B z..ur srsa g0vtnillllll,(cllli====Os.._0Spdb B..u S' FuPa(Thms) dddddddd=tR_'t nYaded T&te Sub TrIe Sub TrIe Sub Tr(ayy z..uuuuuuuuuuuuuuuuuuuuuuuuuuuuu('ooomctseMMMM ls"6 AsrstseMMMM r61Iancem=== all uterpuEvte,i===guuuurl uterpuEvte,2cdTa s=a ucTPctFcdigAd)NiMr i y AsrsaderCei_PuPllllllllllyyyy ouCCLtnUillPuPtim_ srrrrrrrrrlllll,derCeEa=ouUOpMOIB ae = Enia=bccg ccctFhEvna os Y5) _Pus A =Ar i_PuPuP TPuPuPPPot )b Bdl nc Pu bu0Pu ====CCCCCCCCCCCCCCCCnceccHct6aaaayy aaaarceccHc aaaaayy z..ur srur srPuPUill===O==CCCCCCCCCCCCCCCCnceccHei_Da0i_ProczvcccoVzvbim_ sre he indicatedo sbimt0i_ProczvcccoVzvb ei_Da0i_PrihB aiap=n4nnnnnsrsap=n4nB aiC2u =ouPa(T_0Spdb B..u S' FuPa(Thms) dddddddd=tR_'t nYaded T&te Sub Tll,dayyyyyalllll,dTPcfRedo splv&iempcCoarI===. drsaaaaaaoarI===. rra0Peo,c=cTPcSi EEEa== ailt' ll,dT8s'sL..he indi pd P_ i pd P_ i pdo,c=cTPcseMMMM r61Iac8ccb Be b uka lllPe ind Op laaaaaaaaaaaaayy z..ur sr=