Inserire un testo da un Controllo all'interno del testo di una TextArea senza l'uso del Drag&Drop

E' possibile inserire senza l'uso del Drag&Drop un testo da un Controllo all'interno del testo preesistente di una TextArea.

Mostriamo un esempio pratico, nel quale si porterà un testo da un Controllo TreeView l'interno di un testo dei una TextArea, esattamente nella posizione del testo, ove si clicca con il mouse.
E' assolutamente necessario assegnare alla Proprietà ".Tracking" della TextArea il valore booleano di "True".
(Si dovrà dapprima cliccare in un item del Controllo TreeView, rilasciando il tasto premuto. Quindi portarsi all'interno della TextArea, scegliere la posizione nel testo, ivi presente, e cliccare con il mouse, rilasciando il tasto premuto.)

Public Sub Form_Open()

 TreeView1.Add("a", "123")
 TreeView1.Add("b", "456")
 TreeView1.Add("c", "789")
 
 TextArea1.Tracking = True
 TextArea1.Text = "Arma virumque cano, Troiae qui primus ab oris\n" &
                  "Italiam fato profugus Laviniaque venit\n" &
                  "litora, multum ille et terris iactatus et alto,\n" &
                  "vi superum, saevae memorem Iunonis ob iram,\n" &
                  "multa quoque et bello passus, dum conderet urbem\n" &
                  "inferretque deos Latio, genus unde Latinum\n" &
                  "Albanique patres atque altae moenia Romae."

End


Public Sub TextArea1_MouseUp()

 If Not Object.IsValid(TreeView1.Current) Then 
   Message.Warning("Attenzione: bisogna prima cliccare su un item del TreeView !")
   Return 
 Endif

 TextArea1.Insert(TreeView1.Current.Text)

End