codice:
Public Declare Function GetTickCount Lib "kernel32" () As Long



                y = GetTickCount
                
                Do Until (y + INTERVALLO_CARICO_DATI) < GetTickCount
                    DoEvents
                Loop