istIndex = 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