Dim loginName As String = "spread@reasonables.com"

Dim loginPassword As String = "spread"

Dim myCampaignID As Integer = 123456

Dim myCampaignStatus As CampaignStatus

'Create a SpreadWebService object and use its method.

Dim MySpread As New SpreadWebService

myCampaignStatus = MySpread.getCampaignStatus(loginName, loginPassword, myCampaignID)

  /**
    * @name     getCampaignStatus
    * @function get the status of campaign
    * @param
    *  loginEmail Login Email of Spread.
    *  password Login Password of Spread.
    *  CampaignID   The id of campaign.
    * @return
    *  		status.
    */
    public function getCampaignStatus($loginEmail,$password,$campaignID){
        $paraArray = array(
	            'loginEmail' 	=> $loginEmail,
	            'password'     	=> $password,
		    'campaignID'        => $campaignID
        );
        $Client = new SoapClient("http://service.rspread.com/Service.asmx?WSDL");
        $campaignstatus = $Client -> getCampaignStatus( $paraArray );
        return $campaignstatus ;
    }