[bidaya]

كود :

Private Sub GeckoWebBrowser1_DomClick(sender As Object, e As Gecko.DomMouseEventArgs) Handles GeckoWebBrowser1.DomClick
       Dim element As Gecko.GeckoHtmlElement = CType(e.Target.CastToGeckoElement(), Gecko.GeckoHtmlElement)
       If element.TextContent = "Open" Then
           OpenForm()
       End If


   End Sub