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

Dim loginPassword As String = "Spread"

Dim campaignID As Integer = 1

Dim MySpread As New SpreadAPI. SpreadWebService

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

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