[RESOLVED] get selected text from webbrowser1

[new1]

i'm useing WebBrowser1 and the code i use to get the text is

Dim docx As HtmlDocument = WebBrowser1.Document
        Dim readme As Object = Nothing
docx.ExecCommand("copy", True, readme)

i want to make richtextbox that retrieve the selected text without the copy paste method.i want it to be sensitive to the mouse click so it can retrieve the selected text. can some one help me with the code

[new1]

ok i done it this way

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Dim htmlDocument As mshtml.IHTMLDocument2 = TryCast(WebBrowser1.Document.DomDocument, mshtml.IHTMLDocument2)
        Dim currentSelection As mshtml.IHTMLSelectionObject = htmlDocument.selection
        If currentSelection IsNot Nothing Then
            Dim range As mshtml.IHTMLTxtRange = TryCast(currentSelection.createRange(), mshtml.IHTMLTxtRange)
            If range IsNot Nothing Then
                MessageBox.Show(range.text)
            End If
        End If
    End Sub

any one know how to make it work with mouse click?

[Edgemeal]

any one know how to make it work with mouse click?

Maybe add a mouse up event handler, something like,..

Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    If Not (WebBrowser1.Document Is Nothing) Then
        WebBrowser1.Document.AttachEventHandler("onmouseup", AddressOf wb_OnMouseUp)
    End If
End Sub

Private Sub wb_OnMouseUp(ByVal sender As Object, ByVal e As EventArgs)
    If (WebBrowser1.Document Is Nothing) Then Return
    Dim htmlDocument As mshtml.IHTMLDocument2 = TryCast(WebBrowser1.Document.DomDocument, mshtml.IHTMLDocument2)
    Dim currentSelection As mshtml.IHTMLSelectionObject = htmlDocument.selection
    If currentSelection IsNot Nothing Then
        Dim range As mshtml.IHTMLTxtRange = TryCast(currentSelection.createRange(), mshtml.IHTMLTxtRange)
        If range IsNot Nothing Then
            Try
                If range.text.Trim.Length > 0 Then
                    ' add selected text to RTB
                    RichTextBox1.AppendText(range.text & Environment.NewLine)
                End If
            Catch
            End Try
        End If
    End If
End Sub

[new1]

why the append text in the line

RichTextBox1.AppendText(range.text & Environment.NewLine)

double the result i mean it type the word twice