一个连接超时的问题

我用VB写了个FTP客户端,在上传文件时断开网络程序能正常退出.但如果下载时断开网络程序就死掉了.部分代码如下
    Private Const INTERNET_OPTION_CONNECT_TIMEOUT = 2
    Private Const INTERNET_OPTION_RECEIVE_TIMEOUT = 6
    Private Const INTERNET_OPTION_SEND_TIMEOUT = 5
    
    hConnection = InternetConnect(hOpen, serverIp, INTERNET_INVALID_PORT_NUMBER, _
                                tpUseName, tpPassWord, INTERNET_SERVICE_FTP, 0, 0)
    If hConnection Then
    Call InternetSetOption(hConnection,INTERNET_OPTION_CONNECT_TIMEOUT, 10000, 4)
    Call InternetSetOption(hConnection,INTERNET_OPTION_RECEIVE_TIMEOUT, 10000, 4)
    Call InternetSetOption(hConnection,INTERNET_OPTION_SEND_TIMEOUT, 10000, 4)
    End If