[3asfa~mdmra]

السلام عليكم

بعد الصلاه على سيدنا محمد معلم  البشرية

اود من المختصين التعديل ع هذا الكود

مايتناسب مع خبرتهم 

طبيعه المشكلة هي :

عند انتهاء الكود من ازالة جميع الايميلات

الطبيعي ان يظهر للمستخدم انه تم ازالة جميع الايملات ولكن هنا

لم يحدث انه تم ازلة جميع الايميلات اين المشكلة

الاكواد هي كتالي

كود :

 Private Sub LogInButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogInButton5.Click
       If (emad.XmppConnectionState <> XmppConnectionState.SessionStarted) Then
           Interaction.MsgBox("Please login" & ChrW(10) & "قم بتسجيل الدخول اولا", MsgBoxStyle.Critical, "خطأ/" & ChrW(10) & "Error")
       Else
           ProgressBar1.Maximum = owner.Items.Count
           Timer1.Start()
           Timer1.Interval = 4000
       End If
   End Sub

الكود الثاني في التايمر

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Try
           Me.emad.Send(String.Concat(New String() {"<iq type='set' to='", room.Text, "@conference.nimbuzz.com'><query xmlns='http://jabber.org/protocol/muc#admin'><item jid='", Me.owner.Items.Item(0).ToString, "@nimbuzz.com' affiliation='outcast'/></query></iq>"}))
           Me.owner.Items.RemoveAt(0)
           Me.ProgressBar1.Value += 1
           Me.o.Visible = True
           Me.o.Text = Me.owner.Items.Count.ToString
       Catch ex As Exception
           MsgBox("انتهت ازالة الايميلات")
       End Try

   End Sub

وشكراً