[معاند الحظ]

وعليك السلام ورحمة الله

اخي يمكنك استخدام الصنف SaveFileDialog الذي يضهر نافذة تسال المستخدم عن مكان حفظ الملف

كود :

   Dim saveTo As New SaveFileDialog

        If saveTo.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim W As IO.StreamWriter
            Dim i As Integer
            W = New IO.StreamWriter(saveTo.FileName, True)

            For i = 0 To ListBox2.Items.Count - 1
                W.WriteLine(ListBox2.Items.Item(i))
            Next
            W.Close()
        End If