Подскажите с разлочиванием пользовательской формы - VB

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

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

Решение задачи: «Подскажите с разлочиванием пользовательской формы»

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

                            <font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> SetProcessWorkingSetSize Lib <font color="teal">"Kernel32.dll"</font> (<font color="blue">ByVal</font> hProcess <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> dwMinimumWorkingSetSize <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> dwMaximumWorkingSetSize <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Boolean</font>

<font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> GetCurrentProcess Lib <font color="teal">"kernel32"</font> () <font color="blue">As</font> <font color="blue">Long</font>

<font color="blue">Public</font> <font color="blue">Function</font> RunAndWait(ComLine <font color="blue">As</font> <font color="blue">String</font>, DefaultDir <font color="blue">As</font> <font color="blue">String</font>, ShowFlag <font color="blue">As</font> VbAppWinStyle) <font color="blue">As</font> <font color="blue">Boolean</font>
    <font color="blue">Dim</font> si <font color="blue">As</font> STARTUPINFO
    <font color="blue">Dim</font> pi <font color="blue">As</font> PROCESS_INFORMATION
    si.wShowWindow = ShowFlag
    si.dwFlags = STARTF_USESHOWWINDOW
    <font color="blue">If</font> CreateProcess(vbNullString, ComLine, <font color="blue">ByVal</font> <font color="darkblue"><b>0</b></font>&, <font color="blue">ByVal</font> <font color="darkblue"><b>0</b></font>&, False, <font color="darkblue"><b>0</b></font>, <font color="blue">ByVal</font> <font color="darkblue"><b>0</b></font>&, DefaultDir, si, pi) <font color="blue">Then</font>
        WaitForSingleObject pi.hProcess, INFINITE
        CloseHandle pi.hProcess
        RunAndWait = True
        <font color="blue">Exit</font> <font color="blue">Function</font>
    <font color="blue">End</font> <font color="blue">If</font>
    RunAndWait = False
<font color="blue">End</font> <font color="blue">Function</font>

                        