[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته اخي السندباد
جزاك الله خيرا على مثالك وجعله في ميزان حسناتك 
تقبل احتراماتي وتقييمي 
من بعد اذنك احببت ان اضيف الى مثالك تعدبلا بسيطا  وهو اننا لو اردنا اعادة التوزيغ مرة اخرى دون ان نعيد التشغيل من جديد
حيث وضعت Buttom  باسم Reset للتصفير مهمته اعادة ListName الى ماكانت عليه  ونبدأ مرة أخرى توزيعا جديدا 
وهذه هي الاكواد المضافة 
دمت بكل خير رمضان كريم

كود :

Dim kk As String
   Dim MM() As String
   Sub CopyNameToArr()
       For Each item As String In Me.ListName.Items
           kk += item & "-"
       Next
       MM = kk.Split("-")
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       CopyNameToArr()
   End Sub
   Private Sub Btn_Reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Reset.Click
       ListName.Items.Clear()
       For Each itm As String In MM
           ListName.Items.Add(itm)
       Next
   End Sub