Public Event ObjectStatusChanged( _
   ByVal pObject As TDMSObject, _
   ByVal pNewStatus As TDMSStatus _
)

'======================================================================
'Текст обработчика может быть размещен в скрипте команды, профиля или
'общесистемном скрипте.

Sub Object_StatusChanged(Obj, Status)
        'Проверка на независимость нового статуса объекта
        If Status.Independent Then MsgBox "Объект """ & Obj.ObjectDef.Description & """ является независимым."_
		, vbInformation, "Проверка на независимость после изменения статуса объекта"
        End If
End Sub
'======================================================================