[Anas Mahmoud]

تفضل اخي الكريم :

كود :

       Dim LinesPerFile = 20000 'اقصي عدد عناصر لكل ملف
       Dim Lines = ListBox1.Items.Count 'عدد العناصر الكلي
       Dim Files = Math.Ceiling(Lines / LinesPerFile) 'عدد الملفات

       For FileID As Integer = 0 To Files - 1

           Dim FileName = String.Format("E:\{0}.txt", FileID)

           Using sw As New StreamWriter(File.Open(FileName, FileMode.OpenOrCreate))

               Dim startIndex = FileID * LinesPerFile 'اول عنصر في الملف الحالي
               Dim endIndex = Math.Min(startIndex + LinesPerFile, Lines) - 1 'اخر عنصر في الملف الحالي

               For index = startIndex To endIndex
                   sw.WriteLine(ListBox1.Items(index).ToString)
               Next

           End Using

       Next