Dim lHeight As Long, lT As Long
   Debug.Print m_cMenu.Count
   For i = 1 To m_cMenu.Count
      ' Check if item is in the main menu:
      If (m_cMenu.hMenu(i) = m_cMenu.hMenu(1)) Then
         ' Add the item:
         lHeight = lHeight + m_cMenu.MenuItemHeight(i)
         lT = lT + 1
      End If
   Next i
   
   ' We use a PictureBox to hold the side logo here for convenience,
   ' however, you could use CreateCompatibleDC and CreateCompatibleBitmap
   ' to create a memory DC to hold this to avoid having