Написал вызов 1С в качестве OLE autom server а Все отрабатывает, но по завершении процесс 1Сv7.exe все равно висит.....
Как его убить можно?


 Public Function CreateDocAptZ(ByVal apcode As String, ByVal mystream As DataSet) As String
        Dim v7 As Object
        Dim mh As Object
        Dim pr As Object
        Dim tekpr As Object
        Dim apt As Object
        Dim tekapt As Object
        v7 = CreateObject("V77.Application")
        Try

            Dim initStr = "/DC:\Temp\BaseSklad\ /n11 /p11"
            Dim initDone = v7.GetType().InvokeMember("Initialize", BindingFlags.Public Or BindingFlags.InvokeMethod Or BindingFlags.Static, Nothing, v7, New Object() {v7.RMTrade, initStr, "NO_SPLASH_SHOW"})
            mh = v7.CreateObject("Документ.ЗаявкаАптеки")
            pr = v7.CreateObject("Справочник.Товары")
            apt = v7.CreateObject("Справочник.Контрагенты")
            mh.Новый()
            mh.Упаковки = 1
            If (apt.НайтиПоКоду(apcode) = 1) Then
                tekapt = apt.ТекущийЭлемент
                mh.УстановитьАтрибут("Аптека", tekapt)
            End If
            Dim row As DataRow
            For Each row In mystream.Tables(0).Rows
                If (pr.НайтиПоКоду(row.Item(0)) = 1) Then
                    tekpr = pr.ТекущийЭлемент
                    mh.НоваяСтрока()
                    mh.УстановитьАтрибут("Товар", tekpr)
                    mh.Количество = row.Item(1)
                End If
            Next
            mh.Записать()
            Return "0"
        Catch ex As Exception
            Return "-1"
        Finally
            v7 = Nothing ' продолжает висеть в процессах
        End Try
    End Function

Может, сказать одинэсу умри. Типа ЗавершитьРаботуСистемы(<ФлагСохранения>).
Не помогает....
v7.ExecuteBatch("ЗавершитьРаботуСистемы(0)") возвращает True, а
Процесс остается висеть.... Что за дела... не знаю...