[ابو ليلى]

كما اشار لك الاخ سعود 

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim SaveFD As New SaveFileDialog()
        SaveFD.Filter = "TXT Files (*.txt*)|*.txt"
        If SaveFD.ShowDialog() = DialogResult.OK Then
            Dim sb As New System.Text.StringBuilder()

            For Each o As Object In ListBox1.Items
                sb.AppendLine(o)
            Next

            System.IO.File.WriteAllText(SaveFD.FileName, sb.ToString())
        End If
    End Sub