[SOLUCIONADO] Seleccionar Combobox de una web

[cer212]

Hola a todos!
Estoy tratando de automatizar una carga de datos mediante vb.net, pero llega un punto en el que debo seleccionar valores de varios combobox. Viendo el codigo de la pagina me encuentro que el combobox tiene un formato parecido a esto:
<select id="BirthMonth" name="BirthMonth">
<option value="">Month</option>

<option value="01" >January</option>

<option value="02" >February</option>

<option value="03" >March</option>

<option value="04" >April</option>

no logre que funcionara con WebBrowser1.Document.GetElementById("Nombre del combo").SetAttribute("OPTION", "March"), buscando en Internet encontré una solución donde inter es un parámetro que contiene el valor:

Código:

    Public Sub selector(ByVal inter)
        Dim option_ As HtmlElementCollection
        option_ = WebBrowser1.Document.GetElementsByTagName("option")

        For Each option__ As HtmlElement In option_

            If option__.InnerHtml = inter Then

                option__.SetAttribute("selected", "True")

            End If

        Next
    End Sub

el cual si selecciona el valor deseado , pero la pagina no lo toma, por lo que no refresca los otros combobox.

Alguien sabe como hacer para seleccionar el valor, y que lo tome?
PS: tiene que ser por el nombre del campo no por el value.

desde ya muchas gracias

Un saludo

[cer212]

Hola!, Pude solucionar el problema:
solo tienen que agregar estas lineas después de la selección:

Código:

WebBrowser1.AllowNavigation = True
            WebBrowser1.Document.Forms(0).InvokeMember("submit")

Ejemplo:

Código:

selector("February")
WebBrowser1.AllowNavigation = True
            WebBrowser1.Document.Forms(0).InvokeMember("submit")

Código:

 Public Sub selector(ByVal inter)
        Dim option_ As HtmlElementCollection
        option_ = WebBrowser1.Document.GetElementsByTagName("option")

        For Each option__ As HtmlElement In option_

            If option__.InnerHtml = inter Then

                option__.SetAttribute("selected", "True")

            End If

        Next
    End Sub

Espero que les sirva,

Un saludo