また質問をさせてください。

ＶＢのインターネットトランスファーコントロールを使って
ファイルをアップロードするコードを組んだのですが
サーバーにhtmlファイルをアップロードした後、プログラム（フォーム）を閉じようとすると
ＶＢからの応答がなく固まってしまいます。
アップロードは完了していて、ブラウザで確認することができました。
コードの間違い、同じような現象が出た方、対処法をご存じの方がいらっしゃいましたら
教えていただけないでしょうか？

環境環境は
OS：WIN2000
VB：VB6SP5
です。

下記がそのコードになっています。
よろしくお願いします。

---------
Private Sub cmdup_Click()
    
    Inet1.URL = "ftp://ftp.xxxx.co.jp"
    Inet1.UserName = "emi"
    Inet1.Password = "xxxx"
    Inet1.Protocol = icFTP
    
    Inet1.Execute , "put c:\test.html test.html"
    
    Do While Inet1.StillExecuting
        DoEvents
    Loop

    Inet1.Execute , "QUIT"

    Do While Inet1.StillExecuting
        DoEvents
    Loop
    
    MsgBox ("アップロード終了しました。")
        
End Sub

---------

特に問題ないと思うのですが

>Inet1.Execute , "QUIT"

小文字で quit にしてみたらどうでしょうか？
ftpサーバーによっては大文字のコマンドはエラーになりますので

あるいは quit の後のループは不必要かもしれませんので削除してみてはどうでしょうか？

回答ありがとうございます。
> >Inet1.Execute , "QUIT"
>
> 小文字で quit にしてみたらどうでしょうか？
> ftpサーバーによっては大文字のコマンドはエラーになりますので
>
> あるいは quit の後のループは不必要かもしれませんので削除してみてはどうでしょうか？

QUITを小文字に変え、その後のループも削除してみたのですが
症状が変わらずでした。
何日か前はうまくいっていたのですが・・
その間にＵＳＢドライバなどをいれたせいなのかな？と今考えています。
それらをはずしてみて再度確認してみます。

そのままで試してみましたが、特に問題はありませんでした。
但し、インターネット接続状態で実行しないとだめですが。

インターネット接続状態で実行しても同じく固まってしまいますか？

回答ありがとうございます。

> そのままで試してみましたが、特に問題はありませんでした。
> 但し、インターネット接続状態で実行しないとだめですが。
>
> インターネット接続状態で実行しても同じく固まってしまいますか？
私の環境はＡＤＳＬの常時接続です。
なので、インターネット接続状態になっていると思うのですが・・
数日前はうまくいっていたので、その間にインストールしたドライバ等をはずしてみて
再度確認してみたいと思います。

自己レスです。
ＵＳＢドライバをはずす等、思い当たることはやってみたのですが
やはり症状は改善されませんでした。

なので、wininet.dllを使用してFTPでのアップロードをしてみました。
こちらはうまくアップロードでき、その後フォームも正常終了することができました。

なぜ、自分の環境でうまくいかないのか未だ未解決ですが
とりあえずやりたいこと（FTPでのアップロード）は出来ました。

お二方、ご回答ありがとうございました。