いつもお世話になっています。
どうしてもわからないことがあるのでよろしくお願いします。

標準モジュールに
Public Sub GetInternethandle()
    lnghInternet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0&)    
End Sub

Public Sub GetFTPHandle()
    FTPh = InternetConnect(lnghInternet, RemoteHost, INTERNET_DEFAULT_FTP_PORT, RemoteUser, RemotePass, INTERNET_SERVICE_FTP, &H0, 0&)
End Sub

と記述し、

Private Sub Form_Load()
    Call GetInternethandle
    Call GetFTPHandle
End Sub

Private Sub end_Click()
    Dim lngRet As Long
    Dim lngRet2 As Long
    lngRet = InternetCloseHandle(FTPh)
    lngRet2 = InternetCloseHandle(lnghInternet)
    End------�@
End Sub
とすると、
�@のところでとまってしまって終了するのに2分ぐらいかかってしまいます。
エラーを取得してみたのですが特にエラーはなく、
InternetOpenだけの取得だとこの現象は起こりません。

動作チェックをするのに毎回止まってしまうので困っています。
どうすれば回避できるでしょうか？
よろしくお願いします。

Win2000Pro SP3 (OSは2.3日前にフォーマットしたばかりです)
VB6.0 SP4

PS VBのプログラムと関係ない質問かもしれませんのでルール違反でしたら言ってください。

直接的な回答ではないのですが？そういった特殊処理の場合すぐに動作確認ができる
コードを投稿して下さると、そういった経験が無い物でも確認してアドバイスがもらえると
思うのですが？

　又Webで検索してみるとか、下記等は参考になるかと思います。

　http://www.galliver.co.jp/writing/msdn/msdn13/

ただ、関係ないかも知れませんが　End を使っておられるので End をコードに使用すると
それ以降処理が行われなくなります。
場合によっては終了処理が済む前に　End が実行される可能性があります。

マイクロソフトのサンプルではどうなりますか？

http://support.microsoft.com/default.aspx?scid=kb;ja;175179

返信が遅れてしまい申し訳ありません。

花ちゃんさん
＞直接的な回答ではないのですが？そういった特殊処理の場合すぐに動作確認ができる
＞コードを投稿して下さると、そういった経験が無い物でも確認してアドバイスがもらえると
＞思うのですが？
そーですねこれからは気おつけます。

＞ただ、関係ないかも知れませんが　End を使っておられるので End をコードに使用すると
＞それ以降処理が行われなくなります。
＞場合によっては終了処理が済む前に　End が実行される可能性があります。
ありがとうございます。
また１つ勉強になりました！！

Starfishさん
＞マイクロソフトのサンプルではどうなりますか？
マイクロソフトのサンプルだと上手く動作しました！！
ということは私の作ったものがどこかおかしいということですね

ありがとうございました！！
私ももっと精進したいと思います
これからもよろしくお願いします。