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

Dim loginPassword As String = "Spread"

Dim campaignID As Integer = 1

Dim campaignStatus As String = CampaignStatus.Pause

Dim MySpread As New SpreadAPI. SpreadWebService

Dim result As Boolean = MySpread.UpdateCampaignStatus(loginEmail, loginPassword, campaignID, campaignStatus)

    /**
    * @name     updateCampaignStatus
    * @function update campaign status
    * @param
    *  campaignID	the campaign ID you want to update as campaignID
    * @return
    *  error message       failed.
    *  1        success.
    */
    public function updateCampaignStatus($loginEmail,$password,$campaignID,$campaignStatus ){
        $sendArr = array(
	        'loginEmail'        => $loginEmail,
	        'password'	    => $password,
	        'campaignID'       => $campaignID,
	        'campaignStatus'       => $campaignStatus
        );
        $Client=new SoapClient("http://service.rspread.com/Service.asmx?WSDL");
        $flag = $Client -> UpdateCampaignStatus( $sendArr );
        if( empty( $flag ) ){
	        return -1;
        }
        return 1;
    }