RISOLTO!!!

Utilizzando la funzione che mi hai suggerito, aggiungendo la funzione:
codice:
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Declare Function timeBeginPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long

Do: DoEvents
timeBeginPeriod 1
TEMPO1 = timeGetTime - INIZIO
List2.AddItem TEMPO1
Loop Until TEMPO1 = 60000
Ho provato a vedere nella list2 e ho visto che vedo scorrere finalmente le cifre dei millesimi correttamente (quella che cambia
più frequentemente è l'ultima) e si incremente di uno alla volta.
con la funzione cos' scritta vedo più letture ogni millisecondo..
ma va bene, ora sistemo la cosa.
IMPORTANTE PER TUTTI E' CHE HO SCOPERTO CHE CON WIN2000, XP NECESSARIAMENTE VA SPECIFICATA LA RISOLUZIONE CON timeBeginPeriod
PERCHE' DI DAFAULT E' 10!!!!
MENTRE PER WIN95, WIN 98 E' 1.
Tutto qui!
Ciao ciao