_fProportion * 100
End Property
Public Property Let Proportion(ByVal fProportion As Single)
   If (fProportion &gt; 100#) Or (fProportion &lt; 0#) Then
      Err.Raise 380, App.EXEName &amp; ".cSplitter"
   Else
      m_fProportion = fProportion / 100#
      Resize
   End If
End Property

Public Property Get Position() As Long
   Position = m_lSplitPos
End Property
Public Property Let Position(ByVal lPosition As Long)
   If (lPosition &lt;&gt; m_lSplitPos) Then
      m_lSplitPos = lPosition
      pValidateP