Ciao a tutti,

allora con questo listato eseguo una ricerca dentro una RichTextBox1, la funzione esegue egregiamente la sua ricerca, xò quello ke voglio fare è ke invece di trovarmi la riga col testo selezionato, voglio ke mi incolli il testo trovato in una textbox, come procedo? questo è il listato:

codice:
Public POSIZ

Private Sub Command1_Click()
       FoundPos = RichTextBox1.Find(Text1.Text, POSIZ + 1, , rtfWholeWord)
       POSIZ = FoundPos
   Beep
       DoEvents
End Sub

Private Sub Form_Load()
RichTextBox1.LoadFile App.Path & "\txt\TEC.txt", rtfText
Text1 = frmElenco.txtFields(2)

End Sub

Private Sub Text1_Change()
Dim FoundPos As Long
Dim FoundLine As Long
   If RichTextBox1.Text = "" Then Exit Sub
   ' Trova il testo specificato nel controllo TextBox.
   FoundPos = RichTextBox1.Find(Text1.Text, 0, , rtfWholeWord)
   POSIZ = FoundPos
   
   ' Visualizza un messaggio per indicare che il testo
   '   è stato o non è stato trovato.

   If FoundPos <> -1 Then
      ' Restituisce il numero della riga contenente il testo.
      FoundLine = RichTextBox1.GetLineFromChar(FoundPos)
     
      Beep
   Else
           MsgBox "Parola non trovata."
   End If
   If Text1 = "" Then RichTextBox1.Refresh
      Text1.Refresh
   DoEvents
End Sub
ciao