Private m_bKeepRightOrBottom As Boolean

Public Property Let KeepRightOrBottom(rhs As Boolean)
    m_bKeepRightOrBottom = rhs
End Property

Public Property Get KeepRightOrBottom() As Boolean
    KeepRightOrBottom = m_bKeepRightOrBottom
End Property

Public Sub Resize()
Dim tR As RECT
   If pbConfigured() Then
        GetClientRect m_oContainer.hwnd, tR
        If (m_bKeepProportionsWhenResizing) Then
            If (m_eOrientation = cSPLTOrientationVertical) Then
                m_lSplitPos = (tR.Right - tR.Left) * m_fProportion
            Else
                m_lSplitPos = (tR.Bottom - tR.Top) * m_fProportion
            End If
        ElseIf m_bKeepRightOrBottom Then
            If (m_eOrientation = cSPLTOrientationVertical) Then
                m_lSplitPos = m_oContainer.ScaleX(m_oContainer.Width - m_oRightBottom.Width, m_oContainer.ScaleMode, vbPixels) - m_lSplitSize
            Else
                m_lSplitPos = m_oContainer.ScaleY(m_oContainer.Height - m_oRightBottom.Height, m_oContainer.ScaleMode, vbPixels) - m_lSplitSize
            End If
        End If
        pValidatePosition
        pResizePanels
    End If
End Sub