Tomar Datos De Listiview

[pkj]

El fallo que tienes es que sobreescribes continuamente los textbox sin guardar el texto anterior.

Debería ser algo como:

Código vb:

Private Sub Command1_Click()
  dim a as string
  For a = 1 to ListView1.ListItems.Count
    text1.text = text1.text & vbCrLf & ListView1.ListItems.Item(a).Text
    text2.text = text2.text & vbCrLf & ListView1.ListItems.Item(a).Subitems(1)
  Next a
End Sub