Исходный код

'подписываем текущим пользователем, уже созданные (пустые) подписи
ThisObject.SetSign("SYSID_MY_SIGNDEF") 

'-----------------------------------------
'если подпись не создана на объекте, то нужно создать её
set Signs = ThisObject.Signs 
Signs.Create("SYSID_MY_SIGN") 'Создаем на объекте подпись (пустую)
ThisObject.SetSign("SYSID_MY_SIGNDEF") 'подписываем её текущим пользователем.
'ЗАМЕЧАНИЕ !!!  С помощью метода TDMSSign.Add нельзя добавить подпись к объекту,
'а можно лишь добавить подпись к локальной (временной) коллекции

'-----------------------------------------
'Существует возможность подписать подпись от имени другого пользователя
'при условии что известен его пароль
ThisObject.SetSign "SYSID_MY_SIGN", "mypassword", "anatoliy"

'------------------------------------------
'Для того, чтобы подписать объект, можно использовать стандартный диалог
set SignDlg = ThisApplication.Dialogs.SetSignDlg
SignDlg.Object = ThisObject
SignDlg.Sign = ThisObject.Signs.Item(1)
SignDlg.Show