[3asfa~mdmra]

سلام عليكم

واجهتني مشكلة تهنيج البرنامج

عند تشغيل تايمر لتنفيذ الكود

الرجاء مساعدتني عند تشغيل تايمر

مايهنج البرنامج

بالاضافة الي

ProgressBar1 

لا اريد ان يمشي بسرعة ولكن ببطء

وبعد الانتهاء يتم توقف  timer

تفضلوا الكود الموجود في timer

كود :

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
       Me.ProgressBar1.Value = 0
       Dim strArray As String() = Me.id.Text.Split(New Char() {"#"c})
       Me.ProgressBar1.Maximum = strArray.Length
       Dim i As Integer = 0
       Do While (i <= strArray.GetUpperBound(0))
           Me.emad1.Send(String.Concat(New String() {"<iq xmlns='jabber:client' to='", Me.room.Text, "@conference.nimbuzz.com' type='set' id='353'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='member' jid='", strArray(i), "@nimbuzz.com' /></query></iq>"}))
           Me.ProgressBar1.Value += 1
           i += 1
       Loop
   End Sub