osition
      pSetProportion
      Resize
   End If
End Property

Public Property Get KeepProportion() As Boolean
   KeepProportion = m_bKeepProportionsWhenResizing
End Property
Public Property Let KeepProportion(ByVal bState As Boolean)
   m_bKeepProportionsWhenResizing = bState
End Property

Public Property Let Container(oContainer As Object)
   Set m_oContainer = oContainer
End Property
Public Property Get Container() As Object
   Set Container = m_oContainer
End Property

Public Property Get SplitterSiz