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

Dim APIKey As String = "Spread"

Dim pageNumber As Integer = 1

Dim pageSize As Integer = 1

Dim MySpread As New SpreadAPI. SpreadWebService

Dim result As DataSet = MySpread.GetCampaigns(loginEmail, APIKey, pageNumber, pageSize)

    /**
    * @name     getUserCampaigns
    * @function get campaigns in the account
    * @return
    *  all campaigns      
    */
    public function getUserCampaigns($loginEmail,$apiKey,$pageNumber,$pageSize){
        $sendArr = array(
	        'loginEmail'        => $loginEmail,
	        'apiKey'	    => $apiKey,
	        'pageNumber'	    => $pageNumber,
	        'pageSize'	    => $pageSize
        );
        $Client=new SoapClient("http://service.rspread.com/Service.asmx?WSDL");
        $result = $Client -> GetCampaigns( $sendArr );
        if( empty( $result ) ){
	        return -1;
        }
        return $result;
    }