[VB.NET] How Close a connection - نسخة قابلة للطباعة

كود :

Private Sub ButterscotchToggle1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButterscotchToggle1.Click

        If ButterscotchToggle1.Checked = True Then

            Jids = id.Text.Split("#")

            Dim rn As New Random

            For k = 0 To Jids.Length - 1

                emad.Add(z)

                emad(k) = New agsXMPP.XmppClientConnection()

                With emad(k)

                    .Server = "nimbuzz.com"

                    .ConnectServer = "o.nimbuzz.com"

                    .Username = Jids(k)

                    .Password = pw.Text

                    .Resource = "Android" + Convert.ToString(rn.Next(10, 10000000))

                    .Open()

                    AddHandler .OnLogin, AddressOf suc

                    AddHandler .OnAuthError, AddressOf fa

                End With

            Next

 End Sub