Abrir duas forms ao mesmo tempo

Eu havia aberto no fórum um tópico de como abrir duas janelas de formulários ao mesmo tempo para interagir. Achei que a solução dada estava OK, mas não estava porque quem deu a solução comentou as linhas de código:

Option Compare Database
Option Explicit

Global Const SW_HIDE = 0

Private Declare Function apiShowWindow Lib "user32" _
   Alias "ShowWindow" (ByVal hWnd As Long, _
         ByVal nCmdShow As Long) As Long
                   
Public Function FSetAccessWindow(nCmdShow As Long)
Dim loX  As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function

Eu queria que as janelas abrissem sem o rainbow. Se comentar o código, funciona legal. Mas eu queria que abrissem como num sistema. Mas quando tento carregar as duas janelas ao mesmo tempo, congelam.

Alguém pode me ajudar?

Olá!

Fiz os ajustes. Veja se atende às tuas necessidades.

Segue bd em anexo.