Hello, I have a big problem with my code (old vb6 code... my server is reopenning...)

Here is my code...

Code:
Private Function Getfile(site, file As String)
    'Name of the updated exe
    'RemoteFileToGet = site & updatelist

    FirstResponse = False
    m_FileSize = GetHTTPFileSize(site & file)
    While Inet1.StillExecuting = True
        DoEvents  <<<<<<<=============================
    Wend
    lblStatus.Caption = "Détermination de la taille du fichier..."
    'lblInfo.Caption = "0/" & (m_FileSize)
    lblInfo.Caption = (m_FileSize) & " octets"
    pbfile.Value = 0
    m_LocalSaveFile = Path & file
    'Inet1.Execute RemoteFileToGet, "GET " & Chr(34) & m_LocalSaveFile & Chr(34)
    Inet1.Execute site & file, "GET " & Chr(34) & m_LocalSaveFile & Chr(34)
End Function
It bugs at the DoEvents... I don't know why... on my computer it works fine... and on other computer... sometimes cannot works fines... =/

I check all DLL, and all DLL is okay... I don't know... really, and I need my patcher ASAP!

Thanks you for your help ^^