Using the Demo Application
B-4
PN: 10585-00016, Rev. A
MA24104A 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
************************************************************************
