我vb客户端是这样写的。
Dim WithEvents sim As COSIMULATORLib.Simu
Private Sub Command1_Click()
sim.Start True
End Sub
Private Sub Command2_Click()
sim.Start False
End Sub
'Private Sub sim_OnInterrupt()
' ' sim.CaptureData pt(0)
'End Sub
Private Sub Form_Load()
Set sim = New COSIMULATORLib.Simu
sim.SetInterruptFreq 10
sim.SetInterruptDataNum 500
End Sub