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

//---------------------------------------------------------
// Создает новую версию объекта
//---------------------------------------------------------

// выбрать объект
CComPtr<ITDMSObject> pObject;
if (SelectObject(&pObject, pApp, NULL)) 
{
    // получить коллекцию версий объекта
    CComPtr<ITDMSVersions> pVersions;
    CheckError(pObject->get_Versions(&pVersions));

    // создать новую версию объекта
    BSTR bsVersionName = A2BSTR("Test");
    BSTR bsVersionDescription = A2BSTR("Для примера");
    CheckError(pVersions->Create(bsVersionName, bsVersionDescription));
}