.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
</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p></td><td class="rightbar" valign="top" bgcolor="#C2BEB1">
<!-- No right bar content currently defined -->
</td></tr><tr class="footer"><td></td>
<td>
<p class="cent