Отлов изменения размера меню - VB

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

как уловить что при маленьком размере формы меню становится в две полосы, а не в одну?

Решение задачи: «Отлов изменения размера меню»

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

                            <font color="blue">Dim</font> OrgHeadHeight <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Dim</font> DoubleMenu <font color="blue">As</font> <font color="blue">Boolean</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Form_Load()
   OrgHeadHeight = <font color="blue">Me</font>.Height - <font color="blue">Me</font>.ScaleHeight
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Form_Resize()
   <font color="blue">Dim</font> NewDoubleMenu <font color="blue">As</font> <font color="blue">Long</font>
   NewDoubleMenu = OrgHeadHeight < (<font color="blue">Me</font>.Height - <font color="blue">Me</font>.ScaleHeight)
   <font color="blue">If</font> NewDoubleMenu <> DoubleMenu <font color="blue">Then</font>
      DoubleMenu = NewDoubleMenu
      <font color="blue">If</font> DoubleMenu <font color="blue">Then</font>
         Debug.<font color="blue">Print</font> <font color="teal">"Menu Size Changed to Double lines"</font>
      <font color="blue">Else</font>
         Debug.<font color="blue">Print</font> <font color="teal">"Menu Size Changed to Single line"</font>
      <font color="blue">End</font> <font color="blue">If</font>
   <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        