Private objDoc As New mshtml.HTMLDocument

ClickIt("/index.php", "a", "href")

    Private Sub ClickIt(ByVal myLink As String, ByVal TagName As String, ByVal _
      Atr As String)
        objDoc = Me.AxWebBrowser1.Document
 
        ' Create a collection of all the "input" elements in the page.
        Dim wbrAll As mshtml.IHTMLElementCollection = _
          objDoc.getElementsByTagName(TagName)
        ' Create an object that will be a single instance of an input element
        Dim wbrElm As mshtml.IHTMLElement
        ' Create a few variables to hold values from the input element - you 
        ' can create more
        Dim myString As String
        Dim strName As String
        Dim strId As String
        Dim strValue As String
        Dim strType As String
 
        Try
            For Each wbrElm In wbrAll
                strName = wbrElm.getAttribute(Atr)
                strId = wbrElm.id
                strValue = wbrElm.innerText
                strType = wbrElm.getAttribute("type")
                        If Not myLink = "" Then
                            myString = strName.Remove(0, strName.LastIndexOf( _
                              "/"))
                            If myString = myLink Then
                                wbrElm.click()
                                page = 2
                            End If
                        End If
             Next
         Catch ex As Exception
            MsgBox(ex.Message)
        End Try