Anritsu 0701012 - Manual (Page 56)

Using the Demo Application Sample Visual Basic Code
B-4 MA24106A UG
'Delay routine
Public Sub Delay(ByVal Seconds As Single)
'
Dim fStartTimer As Single
Dim fFinish As Single
'
fStartTimer = Timer
'
Do
DoEvents
fFinish = Timer
If Abs(fFinish - fStartTimer) > Seconds Then
Exit Do
End If
Loop
'
End Sub
************************************************************************