argeChange(eBar)
    tSI.nMin = Min(eBar)
    pLetSI eBar, tSI, SIF_RANGE
    pRaiseEvent eBar, False
End Property
Public Property Let Value(ByVal eBar As EFSScrollBarConstants, ByVal iValue As
 Long)
Dim tSI As SCROLLINFO
    If (iValue &lt;&gt; Value(eBar)) Then
      If (iValue &gt; Max(eBar)) Then
         iValue = Max(eBar)
      End If
      If (iValue &lt; Min(eBar)) Then
         iValue = Min(eBar)
      End If
      tSI.nPos = iValue
      pLetSI eBar, tSI, SIF_POS
      pRaiseEvent eBar, False
   