Salut,
Dans le cas du RichTextBox vers la ListBox ce serait peu être un truc du style
Private Sub Command1_Click()
Dim Contenu() As String
Dim i As Integer
Contenu = Split(RichTextBox1.Text, vbCrLf)
List1.Clear
For i = LBound(Contenu) To UBound(Contenu)
Call List1.AddItem(Contenu(i))
Next
End Sub , ----
[code.aspx?ID=41455 By Renfield]
Pour le WebBrowser je ne sais pas