Option Explicit
 
    Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Sub Form_Activate()
    Dim ret As Long
    Dim i As String
 
    ret = GetTickCount
 
    i = 0
    Do Until CInt(i) > 32000
        DoEvents
        i = i + 1
    Loop
 
    Print GetTickCount - ret
End Sub

Option Explicit
 
    Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Sub Form_Activate()
    Dim ret As Long
    Dim i As Integer
 
    ret = GetTickCount
 
    Do Until i > 32000
        DoEvents
        i = i + 1
    Loop
 
    Print GetTickCount - ret
End Sub

    For i = 0 To 32000
        DoEvents
    Next i

*greetz*
Tim
.
http://www.DotNetWorld.de