发表于：2011/5/18 15:29:05
#0楼
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
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
