vbAccelerator - Contents of code file: EventsFrozen_ctlEventsFrozen.ctl

VERSION 5.00
Begin VB.UserControl ctlEventsFrozen 
   ClientHeight    =   3600
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4800
   ScaleHeight     =   3600
   ScaleWidth      =   4800
   Begin VB.ListBox lstFreezeEvents 
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3375
      IntegralHeight  =   0   '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.ListIndex = lstFreezeEvents.NewIndex
End Function


Private Sub UserControl_Initialize()

   Dim iOleCtl As IOleControl
   Set iOleCtl = Me
   
   m_ptrFreezeEventsOrig = ReplaceVTableEntry( _
      ObjPtr(iOleCtl), IDX_FreezeEvents, _
      AddressOf mIOleControl.IOleControl_FreezeEvents, _
      ObjPtr(Me) _
      )
   
End Sub

Private Sub UserControl_Resize()
   On Error Resume Next
   lstFreezeEvents.Move _
      lstFreezeEvents.Left, lstFreezeEvents.Top, _
      UserControl.ScaleWidth - lstFreezeEvents.Left * 2, _
      UserControl.ScaleHeight - lstFreezeEvents.Top * 2
End Sub

Private Sub UserControl_Terminate()
   Dim iOleCtl As IOleControl
   Set iOleCtl = Me
   
   ReplaceVTableEntry ObjPtr(iOleCtl), IDX_FreezeEvents, _
      m_ptrFreezeEventsOrig

End Sub