Private Sub CommandButton10_Click()
Dim PauseTime, Start
  PauseTime = 1
  Start = Timer
  CloseDigitalPoint "Fix32.FIX.@MID_QD@.F_CV"
  Do While Timer < Start + PauseTime
  DoEvents
  Loop
   OpenDigitalPoint "Fix32.FIX.@MID_QD@.F_CV"
End Sub