脉冲触发程序脚本

Private Sub CommandButton1_Click()
Dim PauseTime, Start
CloseDigitalPoint "Fix32.FIX.FV501_IO.F_CV"
PauseTime = 0.8 ' 设置暂停时间。
Start = Timer ' 设置开始暂停的时刻。
Do While Timer < Start + PauseTime
DoEvents ' 将控制让给其他程序。
Loop
OpenDigitalPoint "Fix32.FIX.FV501_IO.F_CV"
End Sub

这是IFIX中的脉冲信号！用WINCC如何实现？！