False
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   4575
   End
End
Attribute VB_Name = "ctlEventsFrozen"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private m_ptrFreezeEventsOrig As Long

Friend Function FreezeEvents(bFreeze As Long) As Long
   lstFreezeEvents.AddItem IIf(bFreeze = 0, "Events Unfrozen", "Events Frozen")
   lstFreezeEvents.L