Do While WebBrowser1.IsBusy

            Application.DoEvents()

        Loop

        With WebBrowser1.Document.All

            WebBrowser1.Visible = True

            On Error Resume Next

            WebBrowser1.Navigate("javascript:loadAJAXUsingPOST('dispatch', 'contentivd', 'cmd=IVD_EBYNYETKIBILGILERI')")



            Timer1.Start()

        End With

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Try

            WebBrowser1.Document.GetElementsByTagName("li").Item(2).InvokeMember("click")

            If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then

                Timer1.Stop()

            End If

        Catch ex As Exception

        End Try

    End Sub

Timer kullanarak çözdüm olayı. İhtiyacı olanlar için cevabı yazmak istedim.