Dynamic Resizing of StatusBar Panes

Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, ByRef lpRect As RECT) As Long

Private Type Rect
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type

Private Function GetPaneWidthPx(ByVal po_StatusBarPane As StatusBarPane) As Long
   Dim i As Long
   Dim lo_Pane As StatusBarPane
   Dim l_FoundPane As Boolean
   Dim l_FoundL As Long
   Dim l_FoundR As Long
   Dim lt_Rect As RECT
   Dim l_TestY As Long
   
   GetPaneWidthPx = -1  ' Default to not found value
   
   ' Find the vertical middle of the status bar pane for hit testing
   GetWindowRect Me.CommandBars1.StatusBar.hwnd, lt_Rect
   l_TestY = (lt_Rect.Bottom - lt_Rect.Top) \ 2

   ' Loop through from left > right to test stretched pane boundaries
   For i = 0 To Me.ScaleWidth \ Screen.TwipsPerPixelX
      Set lo_Pane = Me.CommandBars1.StatusBar.HitTest(i, l_TestY)
      If Not lo_Pane Is Nothing Then
         ' We have found a pane at the X,Y position
         If lo_Pane.Id = po_StatusBarPane.Id Then
            ' It is our stretched pane
            If Not l_FoundPane Then
               ' This is the first time we have hit the desired pane
               ' So this is the left boundary
               l_FoundPane = True
               l_FoundL = i
            End If
         Else
            ' We are not over the pane we are testing for
            If l_FoundPane Then
               ' Since we have already found the pane we are looking for,
               ' this marks the right boundary
               l_FoundR = i - 1
               Exit For ' Short-circuit
            End If
         End If
      End If
   Next i
   
   If l_FoundPane Then
      ' We found the pane
      If l_FoundR = 0 Then
         ' We don't have a right boundary saved, so assume the last calculate X index
         l_FoundR = i - 1
      End If
      
      GetPaneWidthPx = l_FoundR - l_FoundL
   End If
End Function

               .SetMargins 0, 0, -100, 0
               .SetPadding 0, 0, 100, 0