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

Dim APIKey As String = "Spread"

Dim folderName As String = 1

Dim MySpread As New SpreadAPI. SpreadWebService

Dim result As DataTable = MySpread.GetCampaignsByFolder(loginEmail, APIKey, folderName)

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