WebBrowser1 自动写上名字和密码 ，然后提交 ，自动进入系统

WebBrowser1 打开页面后 如何自动写上名字和密码 ，然后提交 ，自动进入系统

    '自动填写表单
        WebBrowser1.Document.GetElementById("username").SetAttribute("value", "jamie@xxxxx.com")
        WebBrowser1.Document.GetElementById("password").SetAttribute("value", "jamxxxxxx87")

        '自动提交
        Dim form As HtmlElement
        form = WebBrowser1.Document.Forms(0)
        form.InvokeMember("submit")

vb2013的语言。