Вставка стандартного изделия компас в 3д сборку

Imports Kompas6API5
Imports KompasAPI7
Imports PARTLibClient
Imports BOSimple
Imports Kompas6Constants3D
Imports System.Runtime.InteropServices
 
 
Public Class Form1
    Declare Function FolderByID Lib "C:\Program Files\ASCON\KOMPAS-3D v17\Libs\PARTLib\Clients\PartLibClient.dll" (ByVal identifier As String) As IFolder
    Declare Function PLInsert3D Lib "C:\Program Files\ASCON\KOMPAS-3D v17\Libs\PARTLib\Clients\plclient_kompas.dll" (ByVal aPLClient As IPARTLibProvider, ByVal aMethodResponse As IBOResponse, ByVal aPlacement As ksPlacement) As ksPart
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim kompas As Object
        Dim ksdoc As Object
 
        kompas = New Kompas6API5.Application
        kompas.Visible = True
 
        ksdoc = kompas.Document3D
        ksdoc.Create(False, False)
 
        ksdoc.Filename = "C:\Users\Baha1990\Documents\Visual Studio 2017\Projects\Kompas3D\3d files\1.a3d"
        ksdoc.UpdateDocumentParam
        ksdoc.Save
 
        Dim aPLClient As BOSimpleProvider
 
        aPLClient = New PARTLibClient.BOSimpleProvider
 
        Dim CD As Object
        CD = aPLClient.CreateCommonDataObj
        CD.InitUserData
        CD.SetFindOptions("3DSolid")
 
 
        Dim identifier As String
        identifier = "A259_151417DFF6474BF6"
        Dim ISF As Object
        ISF = CD.FolderByID(identifier)