         ' attempt to keep the proportions of the two parts:
         If (m_eOrientation = cSPLTOrientationVertical) Then
            m_lSplitPos = (tR.Right - tR.Left) * m_fProportion
         Else
            m_lSplitPos = (tR.Bottom - tR.Top) * m_fProportion
         End If
         pValidatePosition
      End If
            
      pResizePanels
      
   End If
End Sub

Private Sub pResizePanels()
   Dim f As Single
   On Error Resume Next
   If (m_eOrientation = cSPLTOrientationHorizontal) Then
      f