Dim objWebClient As System.Net.WebClient = New System.Net.WebClient
        Dim HTML() As Byte = objWebClient.DownloadData( _
          "http://trailers.apple.com/trailers/disney/thesorcerersapprentice/")
        Dim HTMLContent As String = New System.Text.UTF8Encoding().GetString( _
        HTML)
 
        Dim doc As mshtml.IHTMLDocument2 = New mshtml.HTMLDocument
        doc.clear()
        doc.write(HTMLContent)
        doc.close()
 
        While (doc.readyState <> "complete")
            System.Threading.Thread.Sleep(1000)
            Application.DoEvents()
        End While
 
        RichTextBox1.Text = doc.body.outerHTML