' select [MODELLI]
                elementi = doc.GetElementsByTagName("SELECT")
                For i As Integer = 0 To elementi.Count - 1
                    elemento = elementi.Item(i)
                    If elemento.GetAttribute("name") = "select_modelli" Then
                        Dim el As HtmlElementCollection = elemento.Children
                        For x As Integer = 0 To el.Count - 1
                            Console.Write(vbNewLine & vbNewLine & " ------- " & el.Item(x).InnerHtml & vbNewLine)
                            If x = 18 Then
                                elemento.SetAttribute("value", el.Item(x).InnerHtml)
                            End If
                        Next
                    End If
                Next