Всплывающее окно - VB

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

Здравтствуйте, как сделать всплывающее окно (не модальное, когда останавливается выполнение кода, а всплывающее, как в VBA frm.popup=true)?

Решение задачи: «Всплывающее окно»

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

                            <font color="blue">Private</font> <font color="blue">Const</font> HWND_TOP = <font color="darkblue"><b>0</b></font>
<font color="blue">Private</font> <font color="blue">Const</font> HWND_TOPMOST = -<font color="darkblue"><b>1</b></font>
<font color="blue">Private</font> <font color="blue">Const</font> HWND_NOTOPMOST = -<font color="darkblue"><b>2</b></font>

<font color="blue">Private</font> <font color="blue">Const</font> SWP_NOMOVE = &H2
<font color="blue">Private</font> <font color="blue">Const</font> SWP_NOSIZE = &H1
<font color="blue">Private</font> <font color="blue">Const</font> SWP_NOACTIVATE = &H10

<font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> SetWindowPos Lib <font color="teal">"user32"</font> ( _
        <font color="blue">ByVal</font> hWnd <font color="blue">As</font> <font color="blue">Long</font>, _
        <font color="blue">ByVal</font> hWndInsertAfter <font color="blue">As</font> <font color="blue">Long</font>, _
        <font color="blue">ByVal</font> X <font color="blue">As</font> <font color="blue">Long</font>, _
        <font color="blue">ByVal</font> Y <font color="blue">As</font> <font color="blue">Long</font>, _
        <font color="blue">ByVal</font> cx <font color="blue">As</font> <font color="blue">Long</font>, _
        <font color="blue">ByVal</font> cy <font color="blue">As</font> <font color="blue">Long</font>, _
        <font color="blue">ByVal</font> wFlags <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>
                        