Snippet By Elektro (Subido por Ikillnukes)

<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <SnippetTypes>
        <SnippetType>Module</SnippetType>
      </SnippetTypes>
      <Title>
         [WebBrowser] Click event
      </Title>
      <Author>Elektro H@cker</Author>
      <Description>
         Maneja el evento Click para el documento cargado en el navegador.
      </Description>
      <HelpUrl>
      </HelpUrl>
      <Shortcut>
      </Shortcut>
    </Header>
    <Snippet>
      <Declarations>
        <Literal Editable="true">
          <ID>aaaaaaaaa</ID>
          <ToolTip>sfsdf</ToolTip>
          <Default>
          </Default>
          <Function>sdfsdf</Function>
        </Literal>
      </Declarations>
      <Code Language="vb"><![CDATA[

    Dim Document As HtmlDocument

    Private Sub WebBrowser_DocumentCompleted(ByVal sender As System.Object, ByVal e As WebBrowserDocumentCompletedEventArgs) _
    Handles WebBrowser1.DocumentCompleted

        Document = sender.Document
        AddHandler document.Click, New HtmlElementEventHandler(AddressOf Document_Click)

    End Sub

    Private Sub Document_Click(ByVal sender As Object, ByVal e As HtmlElementEventArgs)

        Select Case Document.ActiveElement.TagName.ToLower
            Case "button" : MsgBox("You've clicked a button")
            Case "input" : MsgBox("You've clicked a input")
            Case Else
        End Select

    End Sub

]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>