' Wenn der Text mit dem Wort aus der ListView übereinstimmt, dann öffne diese:
with FormToolTip
        .Show vbModeless, MDIForm1
       MDIForm1.RichTextBox1.SetFocus
       ' Focus zurück an die RTB, um weiterschreiben zu können.
end with

' Document1 ist, noch einmal zur Erinnerung, das Child
Dim Doc1 As New Document1 
Dim i as Integer
        i = 0
 
Redim Preserve Doc(i+1)
             Doc(i+1).Show 
             MDIForm1.RichtextBox1.SetFocus