la funzione timer ...questo è un esempio ttratto dalla guida

In questo esempio viene utilizzata la funzione Timer per sospendere l'applicazione. Durante la sospensione possono essere eseguite altre attività di elaborazione.

Dim Start, Finish, TotalTime As Double
If (MsgBox("Press Yes to pause for 5 seconds", MsgBoxStyle.YesNo)) = _
MsgBoxResult.Yes Then
Start = Timer ' Set start time (seconds).
Finish = Start + 5.0 ' Set end time for 5-second duration.
Do While Timer < Finish
' Do other processing while waiting for 5 seconds to elapse.
Loop
TotalTime = Timer - Start ' Calculate total time.
MsgBox "Paused for " & TotalTime & " seconds"
Else
End
End If


koning