王乐君演过的电视剧:为什么ftp服务器走到LIST时停下来？

我在VB6中使用了 Internet Transfer控件，通过ftp协议向服务器上传文件，然后我用“Winsock Expert”软件监视，为什么每次返回LIST的内容后就停下来了不走了？State最后的状态是11(icError-与主机通讯时出现了错误)

我的command1_click是：
Inet1.OpenURL
Inet1.Execute , "GET a.txt c:\a.txt"
Inet1.Execute , "QUIT"

我在“StateChanged”事件是这样的：
Private Sub Inet1_StateChanged(ByVal State As Integer)

Select Case State

Case 0
Debug.Print "0:icNone-无状态可报告"
Case 1
Debug.Print "1:icHostResolvingHost-正在查询所指定的主机的"
Case 2
Debug.Print "2:icHostResolved-已成功地找到所指定的主机的"
Case 3
Debug.Print "3:icConnecting-正在与主机连接"
Case 4
Debug.Print "4:icConnected-已与主机连接成功"
Case 5
Debug.Print "5:icRequesting-正在向主机发送请求"
Case 6
Debug.Print "6:icRequestSent-发送请求已成功"
Case 7
Debug.Print "7:icReceivingResponse-正在接收主机的响应"
Case 8
Debug.Print "8:icResponseReceived-已成功地接收到主机的响应"
Case 9
Debug.Print "9:icDisconnecting-正在解除与主机的连接"
Case 10
Debug.Print "10:icDisconnected-已成功地与主机解除了连接"
Case 11
Debug.Print "11:icError-与主机通讯时出现了错误"
Debug.Print "code:" & Inet1.ResponseCode & "-" & Inet1.ResponseInfo & "!"
Case 12
Debug.Print "12:icResponseCompleted-该请求已经完成，并且所有数据均已接收到"
vtData = Inet1.GetChunk(1024, icString)
DoEvents
Do While Not bDone
strData = strData & vtData
DoEvents
vtData = Inet1.GetChunk(1024, icString)
If Len(vtData) = 0 Then
bDone = True
End If
Loop

End Select