I'm getting errors in this code! Why? Visual Basic 2010
Code:
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.InitialDirectory = "C:\"
SaveFileDialog1.FileName = "Save As..."
SaveFileDialog1.Filter = ("Text Files | *.txt")
SaveFileDialog1.ShowDialog()
Dim w As New IO.StreamWriter(SaveFileDialog1.FileName)
Dim 1 As Integer
For i = 0 To ListBox1.Items.Count = 1
w.WriteLine(ListBox1.Items.Item(i))
Next
w.Close()
End Sub
End Class