Программа ожидает завершения вызова API

Question

Поэтому я работаю над проектом, в котором я вызываю окно экспорта в Inventor через API Inventor следующим образом:

Dim Commander As CommandManager
Commander = ThisApplication.CommandManager
Dim Controller As ControlDefinition
Controller = Commander.ControlDefinitions.Item("AppFileExportCADFormatCmd")
Call Controller.Execute()

Этот код прекрасно работает для открытия окна "Сохранить как" в Inventor, но моя программа VB зависнет

Call Controller.Execute()

Пока я не закрою окно "Сохранить как".

Моя цель - открыть окно и затем автоматически нажать кнопку "Сохранить", но единственное, что меня останавливает, - это "остановка" на линии вызова.

Answer 1

Так что я начал работать с определением двух новых потоков с адресом двух моих подпрограмм, которые я хочу запускать одновременно. А потом запустили обе темы.

Это код:

Dim CADFastExportThread As New Thread(AddressOf CADFastExport)
Dim CADFastSaveThread As New Thread(AddressOf CADFastSave)
CADFastExportThread.Start()
CADFastSaveThread.Start()