Dim nStart As Double
  Dim nEnd As Double
  Dim i As Integer
 
  nStart = Timer
  For i = 1 To 10000
    DoEvents
  Next i
  nEnd = Timer
 
  MsgBox "Zeit-Differenz: " & CStr(nEnd - nStart)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de