[HELP] AUTO ACCEPT ADD REQUEST USING ASIXMPP.DLL IN VB.NET

Imports agsXMPP
Public Class Form1 
    Dim x As XmppClientConnection = New XmppClientConnection
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CheckForIllegalCrossThreadCalls = False
      End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        x = New XmppClientConnection With {.Server = "nimbuzz.com", .ConnectServer = "o.nimbuzz.com"}
        x.Open(idd.Text, pssw.Text, "๑۩۞۩๑๑۩۞۩๑ƒŔĔĔßÚŹŹ๑۩۞۩๑๑۩۞۩๑", 50)
        AddHandler x.OnLogin, AddressOf suc
        AddHandler x.OnAuthError, AddressOf fa
          AddHandler x.OnPresence, AddressOf presence
    End Sub
  Private Sub fa(ByVal sender As Object, ByVal e As Xml.Dom.Element)
        Me.Text = (CType(sender, XmppClientConnection).MyJID.User.ToString + " Failed")
    End Sub

    Private Sub suc(ByVal sender As Object)
        Me.Text = (CType(sender, XmppClientConnection).MyJID.User.ToString + " logged in")
        CType(sender, XmppClientConnection).Show = protocol.client.ShowType.chat
        CType(sender, XmppClientConnection).Status = "Yep i'm here"
    End Sub
  Private Sub presence(ByVal sender As Object, ByVal pres As protocol.client.Presence)
        Dim p As protocol.client.Presence = New protocol.client.Presence
        If pres.Type = protocol.client.PresenceType.subscribe Then
            p.To = New Jid(pres.From.Bare)
            p.Type = protocol.client.PresenceType.subscribed
            CType(sender, XmppClientConnection).Send(p)
            CType(sender, XmppClientConnection).SendMyPresence()
        End If
    End Sub
 
End Class