Example: GetValueBarPosition and GetSpecifiedValue methods

Private Sub CalculateRunRate_Click()
Dim dtBar As Date
Dim nBarMS As Long
Dim fSum As Double
Dim objPen As RSTrend.Pen
  fSum = 0
'Calculate rate based on position of value bar
If Trend1.GetValueBarPosition(dtBar, nBarMS) Then
For Each objPen In Trend1.Pens
fSum = fSum + objPen.GetSpecifiedValue(dtBar, nBarMS)
Next
txtRunRate = fSum * (24# * 60# * 60#) _
/ DateDiff("s", Date, dtBar)
End If
End Sub