koam dar morede gereftane usr haye room:(

            If Not pres.Type = protocol.client.PresenceType.unavailable Then
                If Not pres.From.Resource = socket.MyJID.User Then
                    If InStr(pres.From.ToString, "@conference.nimbuzz.com") Then
                            Dim Target As String
                            Target = XML.Substring(XML.IndexOf("jid='") + 5)
                            Target = Target.Substring(0, Target.IndexOf("'") - 0)
                            ListBox1.Items.Add(Target)
          End If
      End If
End If

            Dim XM As String
            XML = pres.ToString
            XML = Replace(XML, """", "'")

                if (Strings.InStr(xml, "type='unavailable'", CompareMethod.Text) <= 0)
                {
 
                   if (((Strings.InStr(xml, "affiliation='owner'",
CompareMethod.Binary) != 0)) | ((Strings.InStr(xml,
"affiliation='admin'", CompareMethod.Binary) != 0)) |
((Strings.InStr(xml, "affiliation='member'", CompareMethod.Binary) !=
0)) | ((Strings.InStr(xml, "affiliation='none'", CompareMethod.Binary)
!= 0)) && ((Strings.InStr(xml, "type='unavailable'",
CompareMethod.Binary) & Strings.InStr(xml, "role='none'",
CompareMethod.Binary)) == 0))
                    {

                        string str2 = xml.Substring(xml.IndexOf("jid='") + 5);
                        str2 = str2.Substring(0, str2.IndexOf("'") - 0);
                        int b = listBox1.Items.Count;
                        for (int i = 0; i < b; i++)
                        {
                            if (str2.ToString() == listBox1.Items[i].ToString())
                            {
                                listBox1.Items.RemoveAt(i);
                            }
                        }
                        listBox1.Items.Add(str2.ToString());
                    }
                }