Public Function ClickWBElement(ByVal TagName As String, ByVal Attribute As String, ByVal AttributeContains As String)
        Dim ElCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName(TagName)
        For Each Element As HtmlElement In ElCollection
            If Element.GetAttribute(Attribute).Contains(AttributeContains) Then
                Element.InvokeMember("click")
            End If
        Next
        ClickWBElement = True
    End Function

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butotn1.Click
 ClickWBElement("input", "value", "Sign In")
end sub