Size on screen if showtabworkspace is enable

   Dim l_ClientLeft As Long
   Dim l_ClientTop As Long
   Dim l_ClientRight As Long
   Dim l_ClientBottom As Long
   
   Dim l_TabLeft As Long
   Dim l_TabTop As Long
   Dim l_TabRight As Long
   Dim l_TabBottom As Long
   
   Dim l_MdiHeight As Long
   
   With Me.CommandBars
      .GetClientRect l_ClientLeft, l_ClientTop, l_ClientRight, l_ClientBottom
      If Not .TabWorkspace.Item(0) Is Nothing Then
         .TabWorkspace.Item(0).GetRect l_TabLeft, l_TabTop, l_TabRight, l_TabBottom
      End If
   End With
   
   l_MdiHeight = (l_ClientBottom - l_ClientTop) - (l_TabBottom - l_TabTop) - Screen.TwipsPerPixelY