risolto!

codice:
Dim Start As Double = Microsoft.VisualBasic.DateAndTime.Timer
Dim Finish As Double = Start + 2.0   
Do While Microsoft.VisualBasic.DateAndTime.Timer < Finish
      ' attende i 2 secondi
Loop