[3asfa~mdmra]

المشكلة انه اذا وضعت  هذا المود في تايمر لحذف مصفوفات من لست بوكس بطلع خطأ وبرنامج بهنج اريد حذف مصفوفات عبر الكود التالي
 Me.emad.Send(String.Concat(New String() {"<iq to='", Me.room1, "@conference.nimbuzz.com' type='set'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='outcast' jid='", Me.ListBox1.Items.Item(0).ToString, "@nimbuzz.com' /></query></iq>"}))
      Me.ListBox1.Items.RemoveAt(0)
ولكن اريد ربط هذا الكود ProgressBar واذا لم يتفذ عبر ه اريد ان اعطي للمستخدم مشاهدة مايحث عند ضغط علي زر تشغيل تايمر
فقط هي الفكرة وشكراً

وانا اجتهدت من نفسي ولكن اريد تحويل textbox1 اليlistbox1
عبر الكود تالي

كود :

 Me.ProgressBar1.Value = 0
       Dim strArray As String() = Me.TextBox1.Text.Split(New Char()

{"#"c})
       Me.ProgressBar1.Maximum = strArray.Length
       Dim i As Integer = 0
       Do While (i <= strArray.GetUpperBound(0))
           emad.Send(String.Concat(New String() {"<iq to='" + room.Text

+ "@conference.nimbuzz.com' type='set' id='179'><query

xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='outcast'

jid='", strArray(i), "@nimbuzz.com' /></query></iq>"}))
           Me.ProgressBar1.Value += 1
           i += 1
       Loop
       Timer1.Enabled = False
       MessageBox.Show("End ADD 10.000 Id")

مع العلم ان مصفوفات لست بوكس 

كتالي 

emad1

emad2

emad3

لتوضيح اكتر اريد اضافة مصفوفات في لست بوكس

الي وكود اعلاه مع توضيح للمستخدم اضافة كافة الايميلات