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

Dim APIKey As String = "TEST0000-TEST-0000-TEST-0000TEST0000"

Dim MySpread As New SpreadAPI.SpreadWebService

Dim result As DataSet = MySpread.GetUserCredit(loginEmail, APIKey, SpreadAPI.AccountType.Email)

    /**
    * @name     GetUserCredit
    * @function get user credit
    * @param
    *  accountType	the type of account.
    * @return
    *          dataset.
    */
    public function GetUserCredit($loginEmail,$APIKey,$accountType ){
        $array = array(
	        'loginEmail'        => $loginEmail,
	        'APIKey'	    => $APIKey,
	        'accountType'       => $accountType
        );
        $Client=new SoapClient("http://service.rspread.com/Service.asmx?WSDL");
        return $Client -> GetUserCredit( $array );
    }