[VB08]Da ListBox a RichTextBox

[marco1970]

Private Sub List1_DblClick()
    RichTextBox1.Text = RichTextBox1.Text & Space(1) & List1.Text
End Sub