FTPのGETが帰ってきません

ＰＥＫＯチャン 2003-09-06 04:56:00 No: 79312

VBでFTPを行う必要があり一括でGetする処理を作りましたが、
INS64やADSL回線で実行していると、たまにFtpGetFileに行っ
たっきり帰ってこないことがあります。
コードの要所を記述すると以下のようになりますが、どこか間
違ってます？

hInternet = InternetOpen(〜〜〜)
hFTP = InternetConnect(hInternet, 〜〜〜)

    hFile = FtpFindFirstFile(hFTP, 〜〜〜)
    Do
        FtpGetFile(hFTP, 〜〜〜)
        lRet = InternetFindNextFile(hFile, 〜〜〜)
    Loop Until lRet = 0

    Call InternetCloseHandle(hFile)
    Call InternetCloseHandle(hFTP)
    Call InternetCloseHandle(hInternet)

ＰＥＫＯチャン 2003-09-06 05:01:48 No: 79313

すみません。
環境はWin2000pro-SP2(確かSP4でもそうだった)で, VB6-SP5のアプリです。