bState As Boolean)
   If Not (bState = m_bAllowChangeFileName) Then
      m_bAllowChangeFileName = bState
      lblLookFor.Visible = bState
      txtFile.Visible = bState
      lblSelect.Visible = bState
      cmdBrowse.Visible = bState
      UserControl_Resize
      PropertyChanged "AllowChangeFile"
   End If
End Property

Public Property Get Font() As IFont
   Set Font = m_fnt
End Property
Public Property Let Font(ByVal iFnt As IFont)
   pSetFont iFnt
   PropertyChanged "Font"
End Property
Public Property