matrox meteor_II standard 卡接触发,VB6代码如下,非常简单,但要查询,没有事件驱动.将卡的42脚和39脚直接短路即可.

Dim ab As Boolean
Private Sub a_Click()
Do
Me.Caption = Digitizer1.UserBits.Item(1).Value
DoEvents
Loop Until ab = True

End Sub

Private Sub b_Click()ab = TrueEnd Sub