title: how to add multiline item and subitem in listview in VB6?
body: <p>i have data in textbox like this:</p>
  
  <p><a href="https://i.stack.imgur.com/AESB7.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/AESB7.png" alt="object"></a></p>
  
  <p>i want to split 3 type of that data to 3 coloums in listview. i know how to split that data by character using this type of code:</p>
  
  <pre><code>Private Sub Command1_Click()
  Dim a As String
  Dim b As String
  Dim c As String
  
  Dim i As Long
  Dim sLines() As String
  Dim sValues() As String
  sLines() = Split(Text1.Text, vbCrLf)
  For i = 0 To UBound(sLines)
     If sLines(i) &gt; vbNullString Then ' skip for empty line
        sValues() = Split(sLines(i), ".")
        a = sValues(0) &amp; vbCrLf
        b = sValues(1) &amp; vbCrLf
        c = sValues(2) &amp; vbCrLf
        Set List = ListView1.ListItems.Add(, , a)
        ListView1.ListItems.Add.SubItems(1) = b
        ListView1.ListItems.Add.SubItems(2) = c
     End If
  Next i
  End Sub
  </code></pre>
  
  <p>but the result is like this:</p>
  
  <p><a href="https://i.stack.imgur.com/lR45C.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/lR45C.png" alt="result"></a></p>
  
  <p>it isn't linier with the line. 
  what happen with my code? is it wrong?
  please help me, thankyou</p>