Carregar dados em ListView?

Question

Olá Pessoal! Tudo bem? É o seguinte: preciso abrir um arquivo de texto em um ListView, porém ele tem duas colunas, e teria que ser no mesmo arquivo de texto as duas. Tenho este código para carregar em uma coluna, como faço para duas?

Private Sub ButAbrir_Click(sender As Object, e As EventArgs) Handles ButAbrir.Click
	If (DialogResult.OK = OpenFileDialog1.ShowDialog() _
		And Not String.IsNullOrEmpty(OpenFileDialog1.FileName) _
		And File.Exists(OpenFileDialog1.FileName)) Then
		ListViewEmails.Items.Clear()
		ListViewEmails.MultiSelect = False
		ListViewEmails.FullRowSelect = True
		'//
		Dim str As New StreamReader(OpenFileDialog1.FileName)
		If (Not IsNothing(str)) Then
			Dim LinhaTxt As String = ""
			While (str.Peek() > -1)
				LinhaTxt = str.ReadLine()
				Dim Item = ListViewEmails.Items.Add(LinhaTxt)
				'Item.SubItems(LinhaTxt)
			End While
			If (ListViewEmails.Items.Count > 0) Then
				ListViewEmails.Items(0).Selected = True
			End If
		End If
		MessageBox.Show("Itens carregado com sucesso", "Lendo de Texto", MessageBoxButtons.OK, MessageBoxIcon.Information)
	Else
		MessageBox.Show("Cancelado ...", "Lendo de Texto", MessageBoxButtons.OK, MessageBoxIcon.Stop)
	End If
End Sub

Exemplo do arquivo de texto: 

[e-mail] - senha1

[e-mail] - senha2

[e-mail] - senha3

Answer 1

Cade seu Arquivo de Texto coloque o exemplo!???

Outra coisa no Código que eu te passei tem comentado Item.SubItems("") ai você coloca o outro valor!

Answer 2

Coloquei o exemplo :)

Answer 3

Private Sub ButAbrir_Click(sender As Object, e As EventArgs) Handles ButAbrir.Click
	If (DialogResult.OK = OpenFileDialog1.ShowDialog() _
		And Not String.IsNullOrEmpty(OpenFileDialog1.FileName) _
		And File.Exists(OpenFileDialog1.FileName)) Then
		ListViewEmails.Items.Clear()
		ListViewEmails.MultiSelect = False
		ListViewEmails.FullRowSelect = True
		'//
		Dim str As New StreamReader(OpenFileDialog1.FileName)
		If (Not IsNothing(str)) Then
			Dim LinhaTxt As String = ""
			While (str.Peek() > -1)
				LinhaTxt = str.ReadLine()
				Dim Campos() As String = LinhaTxt.Split("-")
                Dim Item = ListViewEmails.Items.Add(Campos(0).Trim)
                Item.SubItems.Add(Campos(1).Trim)
			End While
			If (ListViewEmails.Items.Count > 0) Then
				ListViewEmails.Items(0).Selected = True
			End If
		End If
		MessageBox.Show("Itens carregado com sucesso", "Lendo de Texto", MessageBoxButtons.OK, MessageBoxIcon.Information)
	Else
		MessageBox.Show("Cancelado ...", "Lendo de Texto", MessageBoxButtons.OK, MessageBoxIcon.Stop)
	End If
End Sub