[farfour]

(24-10-20, 05:14 PM)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

الله ينورك اخي الكريم 
شكراااااا