[LoveVb]

تفضل

كود :

       Dim f As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
        Dim elm As HtmlElement = Nothing
        For i% = 0 To f.Count - 1
            If f(i).GetAttribute("value") = "ValueName" Then
                elm = f(i) : Exit For
            End If
        Next
        elm.SetAttribute("value", "LoveVb")

لا تنسى تغيير input باسم الtag للعنصر 
وvalue باسم خاصية فريده للعنصر
وValueName قيمة الخاصية التي وضعتها في value

---

الاكواد في الاعلى اذا العنصر ليس له id
اذا كان العكس

كود :

        Dim elm As HtmlElement = WebBrowser1.Document.GetElementById("Id")

        elm.SetAttribute("AttribName", "LoveVb")

AttribName = اسم الخاصية