Dim wTime As Date = Date.Now While If Math.Abs(DateDiff(DateInterval.Second, wTime, Date.Now)) > SECONDI_DA_ATTENDERE Then Exit While End While