[سعود]

شوف طريقة بسيطة

PHP كود :

Public Class Form1
    Private Sub savetotxt()
        Dim b As String = ""
        Dim ofd As New SaveFileDialog
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            If ofd.FileName.ToString.Trim = "" Then Exit Sub
            For a = 0 To ListBox1.Items.Count - 1
                b &= ListBox1.Items.Item(a).ToString & vbNewLine
                My.Computer.FileSystem.WriteAllText(ofd.FileName, b, False)
            Next
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        savetotxt()
    End Sub
End Class