GetCurrentValue方法示例
2015-12-15 22:24:40   来源：   评论：0 点击：

下列示例获得 Pen1的值、时间标记和质量信息。

Dim dCurVal As Double

Dim dt As Date

Dim lQual As Long

Pen1.GetCurrentValue dCurVal, dt, lQual