[just.coder]

كود :

On Error Resume Next
        Dim s As String
        For i As Integer = 0 To ListBox1.Items.Count - 1
            s += vbCrLf & ListBox1.Items.Item(i)
        Next
        FileOpen(1, "D:\Da3.txt", OpenMode.Output)
        Print(1, s)
        FileClose(1)