![](http://pdfasset.owneriq.net/f/f2/ff27f132-5dab-4cf6-ae3a-290870c46a00/ff27f132-5dab-4cf6-ae3a-290870c46a00-bg38.png)
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
************************************************************************