Назначение одного и того же идентификатора модели пользовательского приложения приложению WinForms и приложению VB6

У нас есть смешанное приложение VB6 с некоторой базой кода .NET. Проект VB6 близок к заполнению, поэтому я переношу основное приложение в приложение WinForms. Из-за большого количества устаревшей кодовой базы и доступных ресурсов невозможно перенести все это в приложение .NET. Мы планируем сохранить проект VB6 в качестве второго процесса для доступа к тем формам, которые мы сейчас не будем мигрировать, используя именованные каналы для IPC.

Прямо сейчас я пытаюсь сгруппировать два процесса на панели задач. Все, что я нашел, указывает на использование Win32 API SetCurrentProcessExplicitAppUserModelID() для присвоения обоим процессам одного и того же AUMID.

В приложении .NET у меня есть:

[DllImport("shell32.dll", SetLastError = true)]
static extern int SetCurrentProcessExplicitAppUserModelID([MarshalAs(UnmanagedType.LPWStr), In] string AppID);

/// <summary>
/// The main entry point for the application.
/// </summary>
[STAThread]
static void Main()
{
    SetCurrentProcessExplicitAppUserModelID("MyCompany.MyApplication");
    // Other presumably irrelevant initialization
}

Приложение .NET запускает приложение VB6, используя Process.Start в рамках своей инициализации. В приложении VB6 у меня есть:

Private Declare Function SetCurrentProcessExplicitAppUserModelID Lib "shell32.dll" (appID As Long) As Long

Private Sub Main()
  Dim strAUMID As String
  strAUMID = "MyCompany.MyApplication"
  SetCurrentProcessExplicitAppUserModelID StrPtr(strAUMID)
  ' Other presumably irrelevant initialization
End Sub

Я ожидаю, что после этих изменений формы обоих процессов будут сгруппированы под одним значком на панели задач, но они останутся отдельными по процессам. Я попытался добавить некоторый диагностический код (который я пропустил выше), чтобы попытаться разобраться в сути проблемы.

Похоже, что приложение .NET работает должным образом. Когда я использую GetCurrentProcessExplicitAppUserModelID(), он выводит "MyCompany.MyApplication".

Но когда я использую Get в приложении VB6, оно выводит что-то еще. Get in VB6 вернет StrPtr вместо String. Я нашел код по адресу https://www.vbforums.com/showthread.php?682690-Using-the-results-of-StrPtr для преобразования StrPtr в соответствующий String, но он не преобразуется обратно в "MyCompany.MyApplication". .

Я не уверен, что еще попробовать.

Редактировать: Это текущий код приложения .NET.

       [DllImport("shell32.dll", SetLastError = true)]
static extern int SetCurrentProcessExplicitAppUserModelID([MarshalAs(UnmanagedType.LPWStr), In] string AppID);

[DllImport("shell32.dll", SetLastError = true)]
static extern int GetCurrentProcessExplicitAppUserModelID([MarshalAs(UnmanagedType.LPWStr), Out] out string AppID);

[STAThread]
static void Main()
{
    var result = SetCurrentProcessExplicitAppUserModelID("MyCompany.MyApplication");
    MessageBox.Show(result.ToString());
    string appId;
    result = GetCurrentProcessExplicitAppUserModelID(out appId);
    MessageBox.Show($"{result}: {appId}");
    // Other code
}

И Set, и Get возвращают 0, а идентификатор приложения — MyCompany.MyApplication.

Это то, что было в приложении VB6.

Private Declare Function SetCurrentProcessExplicitAppUserModelID Lib "shell32.dll" (appID As Long) As Long
Private Declare Function GetCurrentProcessExplicitAppUserModelID Lib "shell32.dll" (ByRef appID As Long) As Long
Private Declare Function SysAllocString Lib "OleAut32" (ByVal strPtr As Long) As String

Private Sub Main()
  Dim ret As Long
  Dim appID As Long
  Dim appString As String
  Dim strAUMID As String
  strAUMID = "MyCompany.MyApplication"
  ret = SetCurrentProcessExplicitAppUserModelID(StrPtr(strAUMID))
  MsgBox CStr(ret)
  ret = GetCurrentProcessExplicitAppUserModelID(appID)
  appString = StrConv(SysAllocString(appID), vbFromUnicode)
  MsgBox CStr(ret) + ": " + appString
  ' Other code
End Sub

И Get, и Set вернули 0, а appString отображается как «??».