[VB6]: Aggiungere elemento da RichTextBox a ListBox

[EngLab]

Con questo

Private Sub Command_Click()
Text.Text = Lista.List(Lista.ListIndex)
End Sub