Исходный текст

Option Explicit
Call UseTDMSDialogs()


'==============================================================================
'Открыть диалог редактирования выбранного пользователем объекта
'==============================================================================

Sub UseTDMSDialogs()
        Dim SelObjDlg, selObj, EditObjDlg, RetVal
        
        'Открыть диалог выбора объекта
        Set SelObjDlg = ThisApplication.Dialogs.SelectObjectDlg
        SelObjDlg.Caption = "Выберите объект для редактирования"
        SelObjDlg.ParentWindow = ThisApplication.hWnd
        RetVal = SelObjDlg.Show
        
        'Если выбрано несколько объектов, их окна свойств будут открываться поочередно
        If RetVal And SelObjDlg.Objects.Count > 0 Then
                For Each selObj In SelObjDlg.Objects
                        'Открыть диалог редактирования выбранного объекта
                        Set EditObjDlg = ThisApplication.Dialogs.EditObjectDlg
                        EditObjDlg.object = selObj 
                        EditObjDlg.ParentWindow = ThisApplication.hWnd
                        EditObjDlg.Show
                Next
        End If
End Sub 
'==============================================================================