Поместить ссылку на рабочий стол пользователя

Sub Send_na_norm(TCSActiveModule)
Dim TcsObj 'As CSDN.TCS
Dim App 'As CSDN.Tcs_Application
Dim Users 'As CSDN.Users
Dim NMks 'As CSDN.Nomenclatures
Dim UserList() 'As Long
Dim NMkIdList() 'As Long
Dim cn 'As Integer
'Dim TP' As CSDN.NmkTechnology
Dim i 'As Long
Set TcsObj = CreateObject("CSDN.TCS")
Set App = TcsObj.LoginCurrent
Dim UserListnorm 'as integer
Dim pars

 Dim NmkFullInfom, NMK_NOTE

 Dim Nmk 'As ISingleNomenclature
Set NmkFullInfo = TCSActiveModule.ChildModules.ModuleByName("NmkFullInfo").AsIDispatch
Set Nmk = theApp.SingleNmkFromNMkNote(NmkFullInfo.Properties("NMK_NOTE").value)
Call theApp.DeleteModuleByUserModuleName( Nmk.UserModuleName )

Dim vheader 'as IVersionHeaderItems
Dim Module 'as ICSDNAction

Set vheader = TCSActiveModule.ChildModules.ModuleByName("VersionHeader").AsIDispatch
Set Module = vheader.ActionList.ActionByName("FullFefaultAction")

     If vheader.Locate("PHEADTYPE_NAME", "Разработал", 0)  Then
     if len(vheader.Properties("PHEAD_VALUE").DisplayText) = 0 or vheader.Properties("PHEAD_VALUE").DisplayText = null then
       Module.Execute
    end if
    end if
       idnmk = Nmk.Properties("ID").displaytext
         if App.PutOnUserDesktop(Null, idnmk, "На нормирование", "Отправить на нормирование") then
            msgbox "ТП успешно отправлен на нормирование"
          end if


End Sub