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

Dim loginPassword As String = "Spread"

Dim campaign_Id As Integer = 123456

Dim isPublish As Boolean = False

Dim MySpread As New SpreadAPI.SpreadWebService

Dim result As Boolean = MySpread.ChangePublishStatus(loginEmail, loginPassword, campaign_Id, isPublish)

  /**
    * @name     ChangePublishStatus
    * @function get the status of campaign
    * @param
    *  LoginEmail Login Email of Spread.
    *  Password Login Password of Spread.
    *  Campaign_id   The id of campaign.
    *  isPublish Publish or not publish Newsletters (true or false)
    * @return
    *  		no return.
    */
    public function ChangePublishStatus($LoginEmail,$Password,$Campaign_id,$isPublish){
        $paraArray = array(
	            'LoginEmail' 	=> $LoginEmail,
	            'Password'     	=> $Password,
		    'Campaign_id'       => $Campaign_id
		    'isPublish'         => $isPublish
        );
        $Client = new SoapClient("http://service.rspread.com/Service.asmx?WSDL");
        $sendResult = $Client -> ChangePublishStatus( $paraArray );
        return $sendResult;
    }