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

Dim loginPassword As String = "Spread"

Dim MySpread As New SpreadAPI.SpreadWebService()

Dim result As String = MySpread.getSubscriptions2String(loginEmail, loginPassword, SpreadAPI.SubscriptionStatus.Active)

    /**
    * @name     getSubscriptions2String
    * @function get all contact lists
    * @param
    *  loginEmail Login Email of Spread.
    *  password Login Password of Spread.
    *  status   The status of subscription
    * @return
    *  		dataset.
    * DataSet Columns:
    * subscription Name,description,status,no.of subscribers
    */
    public function getSubscriptions2String($loginEmail,$password,$status){
        $paraArray = array(
	        'loginEmail' => $loginEmail,
	        'password'   => $password,
	        'status'     => $status
        );
        $Client = new SoapClient("http://service.rspread.com/Service.asmx?WSDL");
        $subscriptionData = $Client -> getSubscriptions2String( $paraArray );
        return $subscriptionData ;
    }