CT
   GetClientRect UserControl.hwnd, tR
   pResize tR.Right - tR.Left, tR.Bottom - tR.TOp
End Sub

Private Sub UserControl_Show()
   UserControl_Resize
End Sub

Private Sub UserControl_Terminate()
   '
   pTerminate
   
   ' detach pointers.
   With m_IPAOHookStruct
      CopyMemory .IPAOReal, 0&amp;, 4
      CopyMemory .TBEx, 0&amp;, 4
   End With

   '
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
   '
   PropBag.WriteProperty "AllowChangeFileName", m_bAllowChangeFileName, True