Как убрать "подвешивание" вызывающего приложения при передаче SendMessage(WM_COPYDATA)? - VB

Формулировка задачи:

Расскажу о проблеммке на примере:
Клиент исполняет код:

Public Sub SendDialStrCommand(ph_number As String)
  'отправка WM_ сообщения осн. приложению
  'строка для передачи
  str_data = ph_number
  hwndTarget = FindMyWindow(1) 'WINDOWTITLE_SERVER
  If hwndTarget <> 0 Then
    Dim cds As COPYDATASTRUCT
    
    cds.dwData = 7 'идентифицирует тип передаваемых данных 7-набор номера телефона
    cds.cbData = Len(str_data) + 1
    cds.lpData = VarPtr(StringToMas(str_data).ByteStr(0))
    
    Call SendMessage(hwndTarget, WM_COPYDATA, Form1.hwnd, cds)
  End If
End Sub

Смысл кода:
Команда - набрать номер (cds.dwData = 7)
Параметр - собственно телефонный номер (cds.lpData = адрес памяти откуда его читать)
(cds.cbData -длина номера, включая \0)
Сервер выполняет команду, грубо вот так:

ElseIf cds.dwData = 7 Then 'команда набрать заданный номер
        the_str = PtrToString_len(cds.lpData, cds.cbData)
        ...
        opal_SetupCall call_param, err_text, , the_str

Проблемка:

пока

ElseIf cds.dwData = 7 Then

не отработает

, т.е. SetupCall не будет выполнена

ВЫЗЫВАЮЩЕЕ приложение будет также висеть

.
SetupCall может выполняться при плохой связи с SIP узлом несколько секунд,
а если не дай бог там ошибка в настройках и указанного SIP узла не существует,
то ошибки можно ждать и пару десятков секунд.
То что ВЫЗЫВАЕМОЕ приложение подвешено - с этим здесь приходится мириться.
Но то что подвешено ВЫЗЫВАЮЩЕЕ - непорядок.
Т.е. я нажал на кнопку на Toolbar в ВЫЗЫВАЮЩЕМ приложении - она у меня остается нажатой.

Как бороться?

14517814

А вот не работает PostMessage. И google говорит что это так и есть, то бишь WM_COPYDATA и PostMessage несовместимы.
От вызывающего приложения требуется тупо сообщить вызываемому номер телефона,
на что уходит миллисекунда.
Вызывающее приложение не интересует удалось ли инициировать вызов по этому номеру или нет и прочие подробности.

Решение задачи: «Как убрать "подвешивание" вызывающего приложения при передаче SendMessage(WM_COPYDATA)?»

textual
                            Листинг программы 
                        

                            процесс
---
SendMessage (WM_COPYDATA) ->
<- возврат результата SendMessage из VB
---
продолжение процесса

                        