[VB6] Da RichTextBox a ListBox come?

[Adrix]

ciao, come posso trasportare ciascuna riga della RichTextBox in ogni riga di una ListBox?

Grazie