)) Then
            m_lSplitPos = tR.Bottom - m_lMinSize(2) - m_lSplitSize
         End If
      End If
      ' Top too small:
      If (m_lMinSize(1) &gt; 0) Then
         If (m_lSplitPos &lt; m_lMinSize(1)) Then
            m_lSplitPos = m_lMinSize(1)
         End If
      End If
   End If
End Sub

Public Sub Resize()
   If pbConfigured() Then
            
      ' Get the container's size:
      Dim tR As RECT
      GetClientRect m_oContainer.hWnd, tR
      
      If (m_bKeepProportionsWhenResizing) Then
