Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim elements As System.Windows.Forms.HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
        For Each file As HtmlElement In elements
            If file.GetAttribute("name") = "u" Then
                SelectFile()
                file.InvokeMember("Click")
            End If
        Next
    End Sub
    Public Async Sub SelectFile()
        Await Task.Delay(2000)
        SendKeys.Send("Put your file’s name here." + "{ENTER}")
    End Sub