Где найти список ResponseCode'ов InetTransfer Control - VB

Формулировка задачи:

Привет Где можно найти полный список ResposeCode and ResponseInfo, которые использует Internet Transfer Control (ITC)? Все ic[Constant] можно взять из VB Object Browser. Но РеспонсКодов там нет. В MSDN полазил - не нашел.

Решение задачи: «Где найти список ResponseCode'ов InetTransfer Control»

textual
                            Листинг программы 
                        

                            Private Sub ftpInetTransfer_StateChanged(ByVal State As Integer)
Select Case State
    Case icError
 
       Debug.Print ftpInetTransfer.ResponseCode & '-' & ftpInetTransfer.ResponseInfo _
            & ' and state=' & State      'это работает
 
'а так напишу - не работает. 0 получаю
       Debug.Print Err.Number & ' - ' & Err.Description
 
    Case icResponseCompleted
        DoEvents
End Select
End Sub
                        