Свойство формы аналог свойства "Всплывающее окно" - VB

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

есть в VBA у форм такое свойство,
чтоб форма всегда была видна, но не модальная

Решение задачи: «Свойство формы аналог свойства "Всплывающее окно"»

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

                            <font color="blue">Sub</font> KeepOnTop(F <font color="blue">As</font> Form)
    <font color="00AA00">'sets the given form On TopMost</font>
    <font color="blue">Const</font> SWP_NOMOVE = <font color="darkblue"><b>2</b></font>
    <font color="blue">Const</font> SWP_NOSIZE = <font color="darkblue"><b>1</b></font>
    <font color="blue">Const</font> HWND_TOPMOST = -<font color="darkblue"><b>1</b></font>
    <font color="blue">Const</font> HWND_NOTOPMOST = -<font color="darkblue"><b>2</b></font>
    SetWindowPos F.hwnd, HWND_TOPMOST, <font color="darkblue"><b>0</b></font>, <font color="darkblue"><b>0</b></font>, <font color="darkblue"><b>0</b></font>, <font color="darkblue"><b>0</b></font>, SWP_NOMOVE <font color="blue">Or</font> SWP_NOSIZE
<font color="blue">End</font> <font color="blue">Sub</font>

                        