Control webBrowser y errores

[carlitosdan]

Hola estoy tratando de tomar una imagen dinamica desde una pagina web, para ello tengo el sigueinte codigo:

Dim miImg As String = "miImg.bmp"
Dim webBroser1 As New WebBrowser()
Dim documento As IHTMLDocument2 = DirectCast(webBroser1.Document.DomDocument, IHTMLDocument2)
Dim imgRange As IHTMLControlRange = DirectCast(DirectCast(documento.body, HTMLBody).createControlRange(), IHTMLControlRange)
imgRange.add(documento.all.item("image1"))
imgRange.execCommand("Copy")
Using bmp As Bitmap = DirectCast(Clipboard.GetDataObject().GetData(DataF ormats.Bitmap), Bitmap)
bmp.Save(miImg)
End Using



Lo malo es que tengo este mensaje de error y la verdad no se coo solucionarlo por lo que agradeceria cualquier ayuda:


No se puede crear una instancia del control ActiveX '8856f961-340a-11d0-a96b-00c04fd705a2' porque el subproceso actual no está en un apartamento de un solo subproceso.


Otro punto es que el error de marca en la linea:

Dim webBroser1 As New WebBrowser()

Muchas gracias a todos.