>>561　さんのコードを元に>>519さんと同じ事を学習用に
やっているのですがどうも次のキャストで失敗する為に
後続処理のページ内の各オブジェクトにアクセスする事が出来ません。
>>561さんは、キャストもせずになぜそのまま出来たのでしょうか？

※対象コード
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
　　
　　state = state + 1
　　 If state = 1 Then
　　　　　　Dim doc As HTMLDocument
　　　　　　Try

　　　　　　　　'(Ａ）
　　　　　　　　doc = DirectCast(WebBrowser1.Document, HTMLDocument)

　　　　　　　　'(B）
　　　　　　　　'doc = WebBrowser1.Document

　　　　　　Catch ex As Exception

　　　　　　　　Debug.WriteLine(ex.Message)

　　　　　　End Try

※エラー内容
　　System.InvalidCastException = {"型 'System.Windows.Forms.HtmlDocument'
　　のオブジェクトを型 'mshtml.HTMLDocument' にキャストできません。"}


(A)(B)いずれのコードでも同一のエラーが表示されてしまいます。