Version =20਀嘀攀爀猀椀漀渀刀攀焀甀椀爀攀搀 㴀㈀　
Checksum =-298067383਀䈀攀最椀渀 䘀漀爀洀
    DividingLines = NotDefault਀    䄀氀氀漀眀䐀攀猀椀最渀䌀栀愀渀最攀猀 㴀 一漀琀䐀攀昀愀甀氀琀
    DefaultView =0਀    倀椀挀琀甀爀攀䄀氀椀最渀洀攀渀琀 㴀㈀
    DatasheetGridlinesBehavior =3਀    䜀爀椀搀堀 㴀㈀㐀
    GridY =24਀    圀椀搀琀栀 㴀㘀㜀㠀　
    DatasheetFontHeight =11਀    䤀琀攀洀匀甀昀昀椀砀 㴀㌀㌀
    Top =285਀    刀椀最栀琀 㴀㜀㜀㔀㔀
    Bottom =6540਀    刀攀挀匀爀挀䐀琀 㴀 䈀攀最椀渀
        0x428510559459e340਀    䔀渀搀
    GUID = Begin਀        　砀㠀挀㄀愀　㐀㈀㘀昀　㐀㘀㤀挀㐀㠀㤀昀　㤀昀攀㜀㐀昀　㜀㄀㐀㘀　　
    End਀    刀攀挀漀爀搀匀漀甀爀挀攀 㴀∀吀愀戀氀攀㄀∀
    OnCurrent ="[Event Procedure]"਀    䐀愀琀愀猀栀攀攀琀䘀漀渀琀一愀洀攀 㴀∀吀愀栀漀洀愀∀
    PrtMip = Begin਀        　砀㘀㠀　㄀　　　　㘀㠀　㄀　　　　㘀㠀　㄀　　　　㘀㠀　㄀　　　　　　　　　　　　㈀　㄀挀　　　　攀　㄀　　　　　　㄀　　　　　　 Ⰰ
        0x010000006801000000000000a10700000100000001000000਀    䔀渀搀
    PrtDevMode = Begin਀        　砀　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 Ⰰ
        0x010400059c003c030f9b800701000100ea0a6f08640001000700680102000100 ,਀        　砀㘀㠀　㄀　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 Ⰰ
        0x0000000000000000000000000000000000000000000000000000000003000000 ,਀        　砀　㈀　　　　　　　㄀　　　　　　　㔀　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　㜀　㤀　㐀 Ⰰ
        0x4550534f4e205374796c75732043583538303046205365726965730000000000 ,਀        　砀㐀㐀㐀挀㐀挀㐀攀㘀㄀㘀搀㘀㔀㌀㌀㌀㈀㌀搀㐀㔀㔀昀㐀㘀㔀㔀㐀㤀㐀㌀㐀㄀㐀挀㐀㄀㈀攀㐀㐀㐀挀㐀挀　　　　　　　　　　　　　　　　　　 Ⰰ
        0x0000000000000000000000000000000000000000000000000000000000000000 ,਀        　砀　　　　　　　　　㄀　　　　　　　　　　　　　　　　　　　　　　　㌀　㐀　㔀　㄀　　　　　　　　　　　　　　　　　　　　　　　　 Ⰰ
        0x000001000000050005000000ffff02000100000001000300000004000300b400 ,਀        　砀　㘀　　　　　　　　　　　　　　　㈀　　　　　　　　　　　　　　　　　　　㄀　　　　　　　　　　　　　　　　　　　　　　　　　　 Ⰰ
        0x0000000000000000000000000000000000000000000000000000000000000000 ,਀        　砀　　　　　　　　　　　　　　　　　㌀　　　　　　　㐀　　　　　　　　　　　　　　　　　㄀　　　　　　　　　　　　　　　　　　　　 Ⰰ
        0x0000000005000000800000005800000000020000000000000000000000000000 ,਀        　砀㐀㐀　　㜀㈀　　㘀㄀　　㘀㘀　　㜀㐀　　㈀　　　㔀㌀　　㘀㔀　　㜀㐀　　㜀㐀　　㘀㤀　　㘀攀　　㘀㜀　　㜀㌀　　　　　　　　　　 Ⰰ
        0x0000000000000000000000000000000000000000000000000000000000000000 ,਀        　砀　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 Ⰰ
        0x0000000000000000000000000000000000000000000000000000000000000000 ,਀        　砀　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 Ⰰ
        0x000000002054535f55524c0054537570706f727455524c002050534f4c564552 ,਀        　砀　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 Ⰰ
        0x0000000000000000000000000000000000000000000000000000000000000000 ,਀        　砀　㈀　　　　　　　㈀　　　　　　　㈀　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 Ⰰ
        0x520300004c04000002000100000000006801000068010000a00b0000240f0000 ,਀        　砀㘀㠀　㄀　　　　㘀㠀　㄀　　　　昀㐀　戀　　　　㜀㠀　昀　　　　㈀愀　　　　　　㈀愀　　　　　　㈀愀　　　　　　㈀愀　　　　　　 Ⰰ
        0x00000000000000000000000000000000f40b0000780f00002a0000002a000000 ,਀        　砀㈀愀　　　　　　㈀愀　　　　　　　㄀　　　　　　　　　　　　　　　　　　　　　　　㈀　　　　　　　　　　　　　　㘀㐀　　　　　　 Ⰰ
        0x0000000000000c00000000000000000000000000000000000000000000000000 ,਀        　砀　　　　昀昀　　㌀㈀　　㄀㐀　　戀㐀　　　　　　　　　　　　　　　攀　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 Ⰰ
        0x0000000000000000000000000000000000000000000000000000000000000000 ,਀        　砀　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　㜀
    End਀    倀爀琀䐀攀瘀一愀洀攀猀 㴀 䈀攀最椀渀
        0x0800240040000100000000000000000000000000000000000000000000000000 ,਀        　砀　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 Ⰰ
        0x55534230303200਀    䔀渀搀
    FilterOnLoad =0਀    䐀愀琀愀猀栀攀攀琀䈀愀挀欀䌀漀氀漀爀㄀㈀ 㴀㄀㘀㜀㜀㜀㈀㄀㔀
    ShowPageMargins =0਀    䐀椀猀瀀氀愀礀伀渀匀栀愀爀攀倀漀椀渀琀匀椀琀攀 㴀㄀
    DatasheetAlternateBackColor =16053492਀    䐀愀琀愀猀栀攀攀琀䜀爀椀搀氀椀渀攀猀䌀漀氀漀爀㄀㈀ 㴀㄀㔀　㘀㈀㤀㤀㈀
    FitToScreen =1਀    䈀攀最椀渀
        Begin Label਀            䈀愀挀欀匀琀礀氀攀 㴀　
            FontSize =11਀            䘀漀渀琀一愀洀攀 㴀∀䌀愀氀椀戀爀椀∀
            LeftPadding =30਀            吀漀瀀倀愀搀搀椀渀最 㴀㌀　
            RightPadding =30਀            䈀漀琀琀漀洀倀愀搀搀椀渀最 㴀㌀　
            GridlineStyleLeft =0਀            䜀爀椀搀氀椀渀攀匀琀礀氀攀吀漀瀀 㴀　
            GridlineStyleRight =0਀            䜀爀椀搀氀椀渀攀匀琀礀氀攀䈀漀琀琀漀洀 㴀　
            GridlineWidthLeft =1਀            䜀爀椀搀氀椀渀攀圀椀搀琀栀吀漀瀀 㴀㄀
            GridlineWidthRight =1਀            䜀爀椀搀氀椀渀攀圀椀搀琀栀䈀漀琀琀漀洀 㴀㄀
        End਀        䈀攀最椀渀 刀攀挀琀愀渀最氀攀
            SpecialEffect =3਀            䈀愀挀欀匀琀礀氀攀 㴀　
            LeftPadding =30਀            吀漀瀀倀愀搀搀椀渀最 㴀㌀　
            RightPadding =30਀            䈀漀琀琀漀洀倀愀搀搀椀渀最 㴀㌀　
            GridlineStyleLeft =0਀            䜀爀椀搀氀椀渀攀匀琀礀氀攀吀漀瀀 㴀　
            GridlineStyleRight =0਀            䜀爀椀搀氀椀渀攀匀琀礀氀攀䈀漀琀琀漀洀 㴀　
            GridlineWidthLeft =1਀            䜀爀椀搀氀椀渀攀圀椀搀琀栀吀漀瀀 㴀㄀
            GridlineWidthRight =1਀            䜀爀椀搀氀椀渀攀圀椀搀琀栀䈀漀琀琀漀洀 㴀㄀
        End਀        䈀攀最椀渀 䤀洀愀最攀
            BackStyle =0਀            伀氀搀䈀漀爀搀攀爀匀琀礀氀攀 㴀　
            SizeMode =3਀            倀椀挀琀甀爀攀䄀氀椀最渀洀攀渀琀 㴀㈀
            LeftPadding =30਀            吀漀瀀倀愀搀搀椀渀最 㴀㌀　
            RightPadding =30਀            䈀漀琀琀漀洀倀愀搀搀椀渀最 㴀㌀　
            GridlineStyleLeft =0਀            䜀爀椀搀氀椀渀攀匀琀礀氀攀吀漀瀀 㴀　
            GridlineStyleRight =0਀            䜀爀椀搀氀椀渀攀匀琀礀氀攀䈀漀琀琀漀洀 㴀　
            GridlineWidthLeft =1਀            䜀爀椀搀氀椀渀攀圀椀搀琀栀吀漀瀀 㴀㄀
            GridlineWidthRight =1਀            䜀爀椀搀氀椀渀攀圀椀搀琀栀䈀漀琀琀漀洀 㴀㄀
        End਀        䈀攀最椀渀 䌀漀洀洀愀渀搀䈀甀琀琀漀渀
            FontSize =11਀            䘀漀渀琀圀攀椀最栀琀 㴀㐀　　
            ForeColor =-2147483630਀            䘀漀渀琀一愀洀攀 㴀∀䌀愀氀椀戀爀椀∀
            LeftPadding =30਀            吀漀瀀倀愀搀搀椀渀最 㴀㌀　
            RightPadding =30਀            䈀漀琀琀漀洀倀愀搀搀椀渀最 㴀㌀　
            GridlineStyleLeft =0਀            䜀爀椀搀氀椀渀攀匀琀礀氀攀吀漀瀀 㴀　
            GridlineStyleRight =0਀            䜀爀椀搀氀椀渀攀匀琀礀氀攀䈀漀琀琀漀洀 㴀　
            GridlineWidthLeft =1਀            䜀爀椀搀氀椀渀攀圀椀搀琀栀吀漀瀀 㴀㄀
            GridlineWidthRight =1਀            䜀爀椀搀氀椀渀攀圀椀搀琀栀䈀漀琀琀漀洀 㴀㄀
        End਀        䈀攀最椀渀 吀攀砀琀䈀漀砀
            FELineBreak = NotDefault਀            䰀愀戀攀氀堀 㴀ⴀ㄀㠀　　
            FontSize =11਀            䈀漀爀搀攀爀䌀漀氀漀爀 㴀㄀㈀㘀㌀㈀㈀㔀㘀
            FontName ="Calibri"਀            䄀猀椀愀渀䰀椀渀攀䈀爀攀愀欀 㴀㄀
            LeftPadding =30਀            吀漀瀀倀愀搀搀椀渀最 㴀㌀　
            RightPadding =30਀            䈀漀琀琀漀洀倀愀搀搀椀渀最 㴀㌀　
            GridlineStyleLeft =0਀            䜀爀椀搀氀椀渀攀匀琀礀氀攀吀漀瀀 㴀　
            GridlineStyleRight =0਀            䜀爀椀搀氀椀渀攀匀琀礀氀攀䈀漀琀琀漀洀 㴀　
            GridlineWidthLeft =1਀            䜀爀椀搀氀椀渀攀圀椀搀琀栀吀漀瀀 㴀㄀
            GridlineWidthRight =1਀            䜀爀椀搀氀椀渀攀圀椀搀琀栀䈀漀琀琀漀洀 㴀㄀
            ShowDatePicker =1਀        䔀渀搀
        Begin ListBox਀            䰀愀戀攀氀堀 㴀ⴀ㄀㠀　　
            FontSize =11਀            䈀漀爀搀攀爀䌀漀氀漀爀 㴀㄀㈀㘀㌀㈀㈀㔀㘀
            FontName ="Calibri"਀            䰀攀昀琀倀愀搀搀椀渀最 㴀㌀　
            TopPadding =30਀            刀椀最栀琀倀愀搀搀椀渀最 㴀㌀　
            BottomPadding =30਀            䜀爀椀搀氀椀渀攀匀琀礀氀攀䰀攀昀琀 㴀　
            GridlineStyleTop =0਀            䜀爀椀搀氀椀渀攀匀琀礀氀攀刀椀最栀琀 㴀　
            GridlineStyleBottom =0਀            䜀爀椀搀氀椀渀攀圀椀搀琀栀䰀攀昀琀 㴀㄀
            GridlineWidthTop =1਀            䜀爀椀搀氀椀渀攀圀椀搀琀栀刀椀最栀琀 㴀㄀
            GridlineWidthBottom =1਀            䄀氀氀漀眀嘀愀氀甀攀䰀椀猀琀䔀搀椀琀猀 㴀㄀
            InheritValueList =1਀        䔀渀搀
        Begin Section਀            䠀攀椀最栀琀 㴀㌀㈀㐀　
            Name ="Detail"਀            䜀唀䤀䐀 㴀 䈀攀最椀渀
                0x5214677b86364b488479d04923dd7d27਀            䔀渀搀
            Begin਀                䈀攀最椀渀 䰀愀戀攀氀
                    BackStyle =1਀                    伀瘀攀爀氀愀瀀䘀氀愀最猀 㴀㤀㌀
                    Left =780਀                    吀漀瀀 㴀㄀㈀㘀　
                    Width =4125਀                    䠀攀椀最栀琀 㴀㄀㠀　
                    BackColor =9605778਀                    一愀洀攀 㴀∀氀戀氀刀愀琀椀渀最∀
                    GUID = Begin਀                        　砀攀㈀㜀㠀挀㌀　㌀㔀㘀昀搀㤀㐀㐀㈀愀愀搀愀搀㤀㜀　㐀搀搀昀搀㤀㜀㔀
                    End਀                    䰀愀礀漀甀琀䌀愀挀栀攀搀䰀攀昀琀 㴀㜀㠀　
                    LayoutCachedTop =1260਀                    䰀愀礀漀甀琀䌀愀挀栀攀搀圀椀搀琀栀 㴀㐀㤀　㔀
                    LayoutCachedHeight =1440਀                䔀渀搀
                Begin Label਀                    伀氀搀䈀漀爀搀攀爀匀琀礀氀攀 㴀㄀
                    OverlapFlags =215਀                    䰀攀昀琀 㴀㜀㠀　
                    Top =1260਀                    圀椀搀琀栀 㴀㐀㄀㐀　
                    Height =180਀                    一愀洀攀 㴀∀氀戀氀刀愀渀最攀∀
                    OnMouseDown ="[Event Procedure]"਀                    伀渀䴀漀甀猀攀唀瀀 㴀∀嬀䔀瘀攀渀琀 倀爀漀挀攀搀甀爀攀崀∀
                    OnMouseMove ="[Event Procedure]"਀                    䜀唀䤀䐀 㴀 䈀攀最椀渀
                        0x559a7232b8fed743a1b445709e0a9c29਀                    䔀渀搀
                    LayoutCachedLeft =780਀                    䰀愀礀漀甀琀䌀愀挀栀攀搀吀漀瀀 㴀㄀㈀㘀　
                    LayoutCachedWidth =4920਀                    䰀愀礀漀甀琀䌀愀挀栀攀搀䠀攀椀最栀琀 㴀㄀㐀㐀　
                End਀                䈀攀最椀渀 吀攀砀琀䈀漀砀
                    OverlapFlags =215਀                    䤀䴀䔀匀攀渀琀攀渀挀攀䴀漀搀攀 㴀㌀
                    Left =1260਀                    吀漀瀀 㴀㤀　　
                    Width =780਀                    䠀攀椀最栀琀 㴀㌀㄀㔀
                    Name ="txtRating"਀                    䌀漀渀琀爀漀氀匀漀甀爀挀攀 㴀∀刀愀琀椀渀最∀
                    GUID = Begin਀                        　砀㤀昀㈀㌀昀㌀㜀㐀㘀㐀㐀搀挀㌀㐀㈀戀㈀㘀㐀㠀昀　搀挀搀㘀㌀㤀㈀㈀攀
                    End਀
                    LayoutCachedLeft =1260਀                    䰀愀礀漀甀琀䌀愀挀栀攀搀吀漀瀀 㴀㤀　　
                    LayoutCachedWidth =2040਀                    䰀愀礀漀甀琀䌀愀挀栀攀搀䠀攀椀最栀琀 㴀㄀㈀㄀㔀
                    Begin਀                        䈀攀最椀渀 䰀愀戀攀氀
                            OverlapFlags =93਀                            䰀攀昀琀 㴀㄀㈀㘀　
                            Top =600਀                            圀椀搀琀栀 㴀㜀㈀　
                            Height =315਀                            一愀洀攀 㴀∀䰀愀戀攀氀㄀㘀∀
                            Caption ="Rating:"਀                            䜀唀䤀䐀 㴀 䈀攀最椀渀
                                0x9b20670d2bd9944a91f64b16d0fcfa93਀                            䔀渀搀
                            LayoutCachedLeft =1260਀                            䰀愀礀漀甀琀䌀愀挀栀攀搀吀漀瀀 㴀㘀　　
                            LayoutCachedWidth =1980਀                            䰀愀礀漀甀琀䌀愀挀栀攀搀䠀攀椀最栀琀 㴀㤀㄀㔀
                        End਀                    䔀渀搀
                End਀                䈀攀最椀渀 吀攀砀琀䈀漀砀
                    OverlapFlags =85਀                    䤀䴀䔀匀攀渀琀攀渀挀攀䴀漀搀攀 㴀㌀
                    Left =1200਀                    吀漀瀀 㴀㄀㠀　
                    Height =315਀                    吀愀戀䤀渀搀攀砀 㴀㄀
                    Name ="Text31"਀                    䌀漀渀琀爀漀氀匀漀甀爀挀攀 㴀∀䴀礀吀攀砀琀∀
                    GUID = Begin਀                        　砀㜀㌀搀㘀㈀愀㐀㘀愀㜀戀㈀㄀攀㐀㄀戀㜀愀㐀㈀搀㐀愀昀挀㈀搀㜀攀㐀　
                    End਀
                    LayoutCachedLeft =1200਀                    䰀愀礀漀甀琀䌀愀挀栀攀搀吀漀瀀 㴀㄀㠀　
                    LayoutCachedWidth =2640਀                    䰀愀礀漀甀琀䌀愀挀栀攀搀䠀攀椀最栀琀 㴀㐀㤀㔀
                    Begin਀                        䈀攀最椀渀 䰀愀戀攀氀
                            OverlapFlags =85਀                            吀漀瀀 㴀㄀㠀　
                            Width =750਀                            䠀攀椀最栀琀 㴀㌀㄀㔀
                            Name ="Label32"਀                            䌀愀瀀琀椀漀渀 㴀∀吀攀砀琀㌀㄀㨀∀
                            GUID = Begin਀                                　砀昀㈀昀㐀戀戀㈀搀㠀　㤀㌀㤀攀㐀㤀愀㄀㘀攀㌀㘀昀㠀㘀昀　挀搀㜀㈀愀
                            End਀                            䰀愀礀漀甀琀䌀愀挀栀攀搀吀漀瀀 㴀㄀㠀　
                            LayoutCachedWidth =750਀                            䰀愀礀漀甀琀䌀愀挀栀攀搀䠀攀椀最栀琀 㴀㐀㤀㔀
                        End਀                    䔀渀搀
                End਀            䔀渀搀
        End਀    䔀渀搀
End਀䌀漀搀攀䈀攀栀椀渀搀䘀漀爀洀
Attribute VB_GlobalNameSpace = False਀䄀琀琀爀椀戀甀琀攀 嘀䈀开䌀爀攀愀琀愀戀氀攀 㴀 吀爀甀攀
Attribute VB_PredeclaredId = True਀䄀琀琀爀椀戀甀琀攀 嘀䈀开䔀砀瀀漀猀攀搀 㴀 䘀愀氀猀攀
Option Compare Database਀伀瀀琀椀漀渀 䔀砀瀀氀椀挀椀琀
'This will be used to determine if the mouse button is down or not.਀倀爀椀瘀愀琀攀 瀀戀漀氀䴀漀甀猀攀䐀漀眀渀 䄀猀 䈀漀漀氀攀愀渀
਀✀吀栀椀猀 椀猀 漀甀爀 琀漀瀀 爀愀渀最攀⸀
Private Const plngTop As Long = 100਀
Private Sub ChangeRating(X As Single)਀    䤀昀 堀 㰀 䴀攀⸀氀戀氀刀愀渀最攀⸀圀椀搀琀栀 䄀渀搀 堀 㸀㴀 　 吀栀攀渀
        Me.lblRating.Width = X਀        䴀攀⸀琀砀琀刀愀琀椀渀最 㴀 䌀䤀渀琀⠀⠀䴀攀⸀氀戀氀刀愀琀椀渀最⸀圀椀搀琀栀 ⼀ 䴀攀⸀氀戀氀刀愀渀最攀⸀圀椀搀琀栀⤀ ⨀ 瀀氀渀最吀漀瀀⤀
    End If਀
End Sub਀倀爀椀瘀愀琀攀 匀甀戀 䘀漀爀洀开䌀甀爀爀攀渀琀⠀⤀
    'Set the width of the rating label to match the Rating value.਀    䴀攀⸀氀戀氀刀愀琀椀渀最⸀圀椀搀琀栀 㴀 ⠀䴀攀⸀氀戀氀刀愀渀最攀⸀圀椀搀琀栀 ⨀ 一稀⠀䴀攀⸀琀砀琀刀愀琀椀渀最Ⰰ 　⤀⤀ ⼀ ㄀　　
    ਀䔀渀搀 匀甀戀
਀倀爀椀瘀愀琀攀 匀甀戀 氀戀氀刀愀渀最攀开䴀漀甀猀攀䐀漀眀渀⠀䈀甀琀琀漀渀 䄀猀 䤀渀琀攀最攀爀Ⰰ 匀栀椀昀琀 䄀猀 䤀渀琀攀最攀爀Ⰰ 开
                               X As Single, Y As Single)਀    ✀䌀愀瀀琀甀爀攀 䴀漀甀猀攀䐀漀眀渀 攀瘀攀渀琀 愀渀搀 最攀琀 琀栀攀 爀愀琀椀渀最 戀愀猀攀搀
    'on the mouse pointer position.਀    瀀戀漀氀䴀漀甀猀攀䐀漀眀渀 㴀 吀爀甀攀
    Call ChangeRating(X)਀    
End Sub਀
Private Sub lblRange_MouseMove(Button As Integer, Shift As Integer, _਀                               堀 䄀猀 匀椀渀最氀攀Ⰰ 夀 䄀猀 匀椀渀最氀攀⤀
    'Determine if mouse is down. If it is, resize the rating label and਀    ✀愀猀猀椀最渀 愀 瘀愀氀甀攀 琀漀 琀栀攀 刀愀琀椀渀最 琀攀砀琀戀漀砀⸀
    If pbolMouseDown Then਀        䌀愀氀氀 䌀栀愀渀最攀刀愀琀椀渀最⠀堀⤀
    End If਀
End Sub਀
Private Sub lblRange_MouseUp(Button As Integer, Shift As Integer, _਀                             堀 䄀猀 匀椀渀最氀攀Ⰰ 夀 䄀猀 匀椀渀最氀攀⤀
'Clear MouseDown event਀    瀀戀漀氀䴀漀甀猀攀䐀漀眀渀 㴀 䘀愀氀猀攀
਀
End Sub