e Sub UserControl_InitProperties()
   '
   pInitialise
   '
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
   '
   pInitialise
   
   m_bAllowChangeFileName = PropBag.ReadProperty("AllowChangeFileName", True)
   Filename = PropBag.ReadProperty("FileName", "")
   Font = PropBag.ReadProperty("Font", m_fnt)
   ScaleMode = PropBag.ReadProperty("ScaleMode", vbTwips)
   
   '
End Sub

Private Sub UserControl_Resize()
On Error Resume Next
   If (m_bAllowChangeFileName) Then
      m_lTop = 