[VB6]: Scrivere da Text a List

[chipdb]

Come vedi è molto semplice:

Private Sub Text1_Change()
    On Error Resume Next
    Dim app() As String
    
    app = Split(Text1.Text, vbCrLf)
    List1.Clear
    
    For i = 0 To UBound(app)
        List1.AddItem app(i)
    Next
End Sub