Public Class Form1
    Public Sub BHMNavigate(ByRef Wb As WebBrowser, ByRef Url As String)
        Wb.Navigate(Url)
        Do While Wb.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop
    End Sub
    Public Function FillOutForm(ByRef wb As WebBrowser, ByRef TagName As String, ByRef GetAttribute As String, ByRef ControlName As String, _
       ByRef SetAttribute As String, ByRef Value As String)
 
        Dim theElementCollection As HtmlElementCollection = wb.Document.GetElementsByTagName(TagName)
 
        For Each curElement As HtmlElement In theElementCollection
            Dim vcontrolName As String = curElement.GetAttribute(GetAttribute).ToString
            If vcontrolName = ControlName Then
                curElement.SetAttribute(SetAttribute, Value)
                Return 1
            End If
        Next
        Return 0
    End Function
    Public Sub ClickButton(ByRef wb As WebBrowser, ByRef value As String)
        'Submit button
        Dim theElementCollection As HtmlElementCollection
        theElementCollection = wb.Document.GetElementsByTagName("Input")
        For Each curElement2 As HtmlElement In theElementCollection
            If curElement2.GetAttribute("id").Equals(value) Then
                curElement2.InvokeMember("click")
                Do While wb.ReadyState <> WebBrowserReadyState.Complete
                    Application.DoEvents()
                Loop
            End If
        Next
 
    End Sub
    Public Sub ClickButton2(ByRef wb As WebBrowser, ByRef id As String)
        'Submit button
        Dim theElementCollection As HtmlElementCollection
        theElementCollection = wb.Document.GetElementsByTagName("Input")
        For Each curElement2 As HtmlElement In theElementCollection
            If curElement2.GetAttribute("id").Equals(id) Then
                curElement2.InvokeMember("click")
                Do While wb.ReadyState <> WebBrowserReadyState.Complete
                    Application.DoEvents()
                Loop
            End If
        Next
 
    End Sub
 
    Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
        BHMNavigate(WebBrowser1, "http://www.youtube.com/create_account?next=%2F")
        FillOutForm(WebBrowser1, "input", "id", "username", "value", "youtesttube")
        FillOutForm(WebBrowser1, "select", "id", "countrySelect", "value", "AU")
        FillOutForm(WebBrowser1, "select", "name", "birthday_mon", "value", "1")
        FillOutForm(WebBrowser1, "select", "name", "birthday_day", "value", "1")
        FillOutForm(WebBrowser1, "select", "name", "birthday_yr", "value", "1988")
        ClickButton(WebBrowser1, "male")
        ClickButton2(WebBrowser1, "button-signin")