[أسامة السالمي]

البرنامج شغال عندي :

   

---

على العموم جرب هذا التعديل في الحدثين (Tru) و (wrong) : 

PHP كود :

Private Sub Tru(ByVal sender As Object)
        ListBox1.Items.Add(CType(sender, XmppClientConnection).MyJID.User.ToString + " connected")
        Label1.Text = (ListBox1.Items.Count.ToString)

        Try
            ProgressBar1.Value = ProgressBar1.Value + 1
        Catch ex As Exception

        End Try
    End Sub
    Private Sub wrong(ByVal sender As Object, ByVal e As Xml.Dom.Element)
        ListBox2.Items.Add(CType(sender, XmppClientConnection).MyJID.User.ToString + " Failed")
        Label2.Text = (ListBox2.Items.Count.ToString)

        Try
            ProgressBar1.Value = ProgressBar1.Value + 1
        Catch ex As Exception

        End Try
    End Sub