Code Auto Aceppt Ba Check

amir.OnPresence += new agsXMPP.protocol.client.PresenceHandler(OnPresence);

        private void OnPresence(object sender, Presence pres)
        {
            if (InvokeRequired)
            {
                BeginInvoke(new agsXMPP.protocol.client.PresenceHandler(OnPresence), new object[] { sender, pres });
                return;
            }
            if (pres.Type == PresenceType.subscribe)
            {
                if (checkBox1.Checked == true)
                {
                    amir.Send("<iq type='set' id='b' ><query xmlns='jabber:iq:roster'><item jid='" + pres.From.User + "@nimbuzz.com' /></query></iq>");
                    amir.Send("<presence type='subscribe' to='" + pres.From.User + "@nimbuzz.com' ><nick xmlns='http://jabber.org/protocol/nick'>" + id.Text + "</nick></presence>");
                    amir.Send("<presence type='subscribed' to='" + pres.From.User + "@nimbuzz.com' />");
                    amir.Send("<presence xmlns='jabber:client' to='" + pres.From.User + "@nimbuzz.com' id='83'><priority>50</priority><x xmlns='vcard-temp:x:update' /><status>" + Sts.Text + "</status><c xmlns='http://jabber.org/protocol/caps' node='bot' ver='Badbuzz Team' hash='sha-1' /></presence>");
                }
            }
        }

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim xml As String
Winsock1.GetData xml
xml = Replace(xml, """", "'")
If InStr(1, xml, "type='subscribe'", vbTextCompare) Then
Dim jid As String 
jid = Mid(xml, InStr(xml, "from='") + 6)
 jid = Left(jid, InStr(jid, "'") - 1)
If Check1.Value = Checked Then
Winsock1.SendData ("<presence to='" & jid & "' type='subscribe' />")
Winsock1.SendData ("<presence to='" & jid & "' type='subscribed' />")
Winsock1.SendData ("<presence to='" & jid & "' />")
 End If
 End If
End Sub