现在要做一个VB.NET ftp传送文件，用webResponse，请问能不能判断其状态

Question

要求webResponse代替vb6中的AxInetCtlsObjects.AxInet 而AxInet 有自己的StateChanged事件，可是现在翻遍了MSDN上面介绍的webRequest和webResponse都没有状态相关的内容，这个怎么解决？难道那10+个状态都要自己代码控制不成？
Case InetCtlsObjects.StateConstants.icNone
                Debug.Print(LsStr)
                txtCnd.Text = txtCnd.Text & Chr(10) & LsStr
                txtCnd.SelectionStart = txtCnd.Find(txtCnd.Text, System.Windows.Forms.RichTextBoxFinds.None)            Case InetCtlsObjects.StateConstants.icResolvingHost                Debug.Print(LsStr)
                txtCnd.Text = txtCnd.Text & Chr(10) & LsStr
                txtCnd.SelectionStart = txtCnd.Find(txtCnd.Text, System.Windows.Forms.RichTextBoxFinds.None)            Case InetCtlsObjects.StateConstants.icHostResolved                Debug.Print(LsStr)
                txtCnd.Text = txtCnd.Text & Chr(10) & LsStr
                txtCnd.SelectionStart = txtCnd.Find(txtCnd.Text, System.Windows.Forms.RichTextBoxFinds.None)            Case InetCtlsObjects.StateConstants.icConnecting                Debug.Print(LsStr)
                txtCnd.Text = txtCnd.Text & Chr(10) & LsStr
                txtCnd.SelectionStart = txtCnd.Find(txtCnd.Text, System.Windows.Forms.RichTextBoxFinds.None)            Case InetCtlsObjects.StateConstants.icConnected                Debug.Print(LsStr)
                txtCnd.Text = txtCnd.Text & Chr(10) & LsStr
                txtCnd.SelectionStart = txtCnd.Find(txtCnd.Text, System.Windows.Forms.RichTextBoxFinds.None)            Case InetCtlsObjects.StateConstants.icRequesting                Debug.Print(LsStr)
                txtCnd.Text = txtCnd.Text & Chr(10) & LsStr
                txtCnd.SelectionStart = txtCnd.Find(txtCnd.Text, System.Windows.Forms.RichTextBoxFinds.None)            Case InetCtlsObjects.StateConstants.icRequestSent                Debug.Print(LsStr)
                txtCnd.Text = txtCnd.Text & Chr(10) & LsStr
                txtCnd.SelectionStart = txtCnd.Find(txtCnd.Text, System.Windows.Forms.RichTextBoxFinds.None)            Case InetCtlsObjects.StateConstants.icReceivingResponse                Debug.Print(LsStr)
                txtCnd.Text = txtCnd.Text & Chr(10) & LsStr
                txtCnd.SelectionStart = txtCnd.Find(txtCnd.Text, System.Windows.Forms.RichTextBoxFinds.None)            Case InetCtlsObjects.StateConstants.icResponseReceived                Debug.Print(LsStr)
                txtCnd.Text = txtCnd.Text & Chr(10) & LsStr
                txtCnd.SelectionStart = txtCnd.Find(txtCnd.Text, System.Windows.Forms.RichTextBoxFinds.None)            Case InetCtlsObjects.StateConstants.icDisconnecting                Debug.Print(LsStr)
                txtCnd.Text = txtCnd.Text & Chr(10) & LsStr
                txtCnd.SelectionStart = txtCnd.Find(txtCnd.Text, System.Windows.Forms.RichTextBoxFinds.None)            Case InetCtlsObjects.StateConstants.icDisconnected                Debug.Print(LsStr)
                txtCnd.Text = txtCnd.Text & Chr(10) & LsStr
                txtCnd.SelectionStart = txtCnd.Find(txtCnd.Text, System.Windows.Forms.RichTextBoxFinds.None)                'ｴﾗｰ(11)
            Case InetCtlsObjects.StateConstants.icError
                LsStr = inetFTP.ResponseInfo
                Debug.Print(LsStr)
                txtCnd.Text = txtCnd.Text & Chr(10) & LsStr
                txtCnd.SelectionStart = txtCnd.Find(txtCnd.Text, System.Windows.Forms.RichTextBoxFinds.None)