Anritsu 0701012, MA24106A manual Delay routine

Using the Demo Application		Sample Visual Basic Code
'Delay routine		Seconds As Single)
Public Sub Delay(ByVal
'	As	Single
Dim fStartTimer
Dim fFinish	As	Single
'

fStartTimer = Timer

'

Do

DoEvents fFinish = Timer

If Abs(fFinish - fStartTimer) > Seconds Then Exit Do

End If

Loop

'

End Sub

************************************************************************

B-4 MA24106A UG