Dim loginEmail As String = "Spread@reasonables.com"

Dim loginPassword As String = "Spread"

Dim subscriberEmail As String = 1

Dim campaignStatus As String = SubscriberStatus.Active

Dim MySpread As New SpreadAPI. SpreadWebService

Dim result As String = MySpread.UpdateSubscriberStatus(loginEmail, loginPassword, subscriberEmail, subscriberStatus)

    /**
    * @name     updateSubscriberStatus
    * @function update subscriber status
    * @param
    *  subscriberEmail	the subscriber email you want to update
    * @return
    *  error message       failed.
    *  1        success.
    */
    public function updateSubscriberStatus($loginEmail,$password,$subscriberEmail,$subscriberStatus ){
        $sendArr = array(
	        'loginEmail'        => $loginEmail,
	        'password'	    => $password,
	        'subscriberEmail'       => $csubscriberEmail,
	        'subscriberStatus'       => $subscriberStatus
        );
        $Client=new SoapClient("http://service.rspread.com/Service.asmx?WSDL");
        $flag = $Client -> UpdateSubscriberStatus( $sendArr );
        if( empty( $flag ) ){
	        return -1;
        }
        return 1;
    }