Reza help >> multi socket with asixmpp >> vb.net

 Imports agsXMPP
Imports System.Collections.ObjectModel
Public Class Form1 
    Dim collSockets As New Collection(Of XmppClientConnection)
    Dim sck As XmppClientConnection
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error Resume Next
        Dim a() As String
        a = Split(TextBox1.Text, "#")
        For i = LBound(a) To UBound(a)
            collSockets.Add(sck)
            collSockets.Item(i) = New XmppClientConnection With {.Server = "nimbuzz.com", .ConnectServer = "o.nimbuzz.com"}
            collSockets.Item(i).Open(a(i), psw.Text, "๑۩۞۩๑๑۩۞۩๑ƒŔĔĔ=><=ßÚŹŹ๑۩۞۩๑๑۩۞۩๑", 50)
            AddHandler collSockets.Item(i).OnLogin, AddressOf suc
            AddHandler collSockets.Item(i).OnAuthError, AddressOf fa
        Next
    End Sub
   
    Private Sub suc(ByVal sender As Object)
        ListBox1.Items.Add(CType(sender, XmppClientConnection).MyJID.User.ToString + " connected")
    End Sub
    Private Sub fa(ByVal sender As Object, ByVal e As Xml.Dom.Element)
        ListBox1.Items.Add(CType(sender, XmppClientConnection).MyJID.User.ToString + " Failed")
    End Sub
 
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CheckForIllegalCrossThreadCalls = False
    End Sub
     
End Class