Public Function existPRP(ctl As Control, prpName As String) As Boolean
Dim prp As Property
  existPRP = False
  For Each prp In ctl.Properties
    If prp.Name = prpName Then
      existPRP = True
      Exit For
    End If
  Next
End Function

Public Function existPRP(ctl As Control, prpName As String) As Boolean
On Error GoTo Err_existPRP
Dim prp As Property
  existPRP = False
  
  a = ctl.Properties(prpName)
  existPRP = True

Exit_existPRP:
  Exit Function

Err_existPRP:
  existPRP = False
'  MsgBox Err.Description
'  MsgBox Err.Source
'  MsgBox Err.Number
  Resume Exit_existPRP
End Function

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы