[مساعدة]

في بداية الموضوع ذكرن الحذف Me.ListBox1.Items.RemoveAt
وفي آخر الموضوع ذكرت الإضافة Me.ListBox1.Items.Add

لكن سأجيبك على أساس RemoveAt والذي هو منطقي تفضل الكود

كود :

   Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

       Dim count As Integer = Me.ListBox1.Items.Count

       Dim i As Integer
       For i = 0 To Me.ListBox1.Items.Count - 1

           Me.Label1.Invoke(Sub()
                                Me.Label1.Text = ("id ban : [" & Me.ListBox1.Items(0).ToString & "]")
                            End Sub)

           Me.emad.Send(
               String.Concat(New String() {
                             "<iq xmlns='jabber:client' to='",
                             Me.room1,
                             "@conference.nimbuzz.com' type='set' id='353'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='outcast' jid='" & Me.ListBox1.Items(0).ToString & " /></query></iq>"
                         }))


           Me.ProgressBar1.Invoke(Sub()
                                      Me.ProgressBar1.Value = ((i + 1) / count) * 100
                                  End Sub)
           Threading.Thread.Sleep(1000)

           Me.ListBox1.Invoke(Sub()
                                  Me.ListBox1.Items.RemoveAt(0)
                              End Sub)

       Next

   End Sub

---

رجاء بسيط، لا تعمل توسيط لمشاركاتك فهي صعبة في القراءة