O QUE TA ERADO NO MEU CODIGO?

NETBRFAKES 13/11/2013 17:02:03
#431097
Boa tarde alguem me ajuda com esse codigo
ele sava uma lista que e gerada dentro de uma listbox
porem ele salva apenas o 1 varias veses



Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim dialog As New SaveFileDialog
Dim i As Integer
If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim replace As New IO.StreamWriter(dialog.FileName)
For i = 0 To ListBox2.Items.Count - 1
replace.WriteLine(ListBox2.Items.Item(1))
Next
replace.Close()
End If


End Sub


Alguem me ajuda ai?
KERPLUNK 13/11/2013 18:06:13
#431101
Resposta escolhida
replace.WriteLine(ListBox2.Items.Item(i))
NETBRFAKES 13/11/2013 19:26:40
#431108
Deu certo , vlw meu jovem!
Tópico encerrado , respostas não são mais permitidas