下面是数据采集卡的采集程序的TIMER(记数用,),不知道怎样才能用一个按钮控件将计数值count清零,而且每次采集开始count的值也不是从0开始,很奇怪
Private Sub Timer1_Timer()
Dim overflow As Integer
  Dim Count As Long
  ErrCde = DRV_DeviceOpen(0, DeviceHandle)
If (ErrCde <> 0) Then
DRV_GetErrorMessage ErrCde, szErrMsg
Response = MsgBox(szErrMsg, vbOKOnly, Error)
Exit Sub
End If
  lpCounterEventRead.counter = lpCounterEventStart.counter
  lpCounterEventRead.overflow = DRV_GetAddress(overflow)
  lpCounterEventRead.Count = DRV_GetAddress(Count)
  ErrCde = DRV_CounterEventRead(DeviceHandle, lpCounterEventRead)
  If (ErrCde <> 0) Then
        DRV_GetErrorMessage ErrCde, szszErrMsg
        Response = MsgBox(szszErrMsg, vbOKOnly, "Error!!")
        Exit Sub
End If
Text1.Text = Str(Count)
End Sub

Dim Count As Long
Count =1
Private Sub Timer1_Timer()
Dim overflow As Integer

 if Count >=50 then
    Count =1
end if
  ErrCde = DRV_DeviceOpen(0, DeviceHandle)
If (ErrCde <> 0) Then
DRV_GetErrorMessage ErrCde, szErrMsg
Response = MsgBox(szErrMsg, vbOKOnly, Error)
Exit Sub
End If
  lpCounterEventRead.counter = lpCounterEventStart.counter
  lpCounterEventRead.overflow = DRV_GetAddress(overflow)
  lpCounterEventRead.Count = DRV_GetAddress(Count)
Count=Count+1
  ErrCde = DRV_CounterEventRead(DeviceHandle, lpCounterEventRead)
  If (ErrCde <> 0) Then
        DRV_GetErrorMessage ErrCde, szszErrMsg
        Response = MsgBox(szszErrMsg, vbOKOnly, "Error!!")
        Exit Sub
End If
Text1.Text = Str(Count)
End Sub