[mansoor]

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim elm As HtmlElement = GetElementByAltValue(Me.WebBrowser1, "all")
        If elm IsNot Nothing Then elm.InvokeMember("click")
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim elm As HtmlElement = GetElementByAltValue(Me.WebBrowser1, "maximum")
        If elm IsNot Nothing Then elm.InvokeMember("click")
    End Sub

    Function GetElementByAltValue(wb As WebBrowser, alt As String) As HtmlElement
        Return wb.Document.GetElementsByTagName("img").
            Cast(Of HtmlElement).
            Where(Function(x) x.GetAttribute("alt") = alt).
            FirstOrDefault()
    End Function