GetCurrentValue Method Example

The following example retrieves the value, timestamp, and quality information for PenPen1.

Dim dCurVal As Double

Dim dt As Date

Dim lQual As Long

Pen1.GetCurrentValue dCurVal, dt, lQual