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

Dim loginPassword As String = "Spread"

Dim transferToEmail As String = "ToSpreader@reasonables.com"

Dim creditCount As Integer = 123456

Dim MySpread As New SpreadAPI.SpreadWebService()

Dim result As Boolean = MySpread.TransferCredit(loginName, loginPassword, _

transferToEmail, creditCount)

  /**
    * @name     TransferCredit
    * @function Transfer credit to another account.(This method is only for reseller.)
    * @param
    *  loginEmail         The login email of your Spread account.
    *  loginPassword 	  The login password of your Spread account.
    *  transferToEmail    Email of transfer credit to user .
    *  creditCount        Total amount of transfer credit.
    *  @return
    *  		true if success.
    */
    public function TransferCredit($loginEmail,$loginPassword,$transferToEmail,$creditCount){
        $paraArray = array(
	            'loginEmail' 	 	=> $loginEmail,
	            'loginPassword'             => $loginPassword,
		    'transferToEmail'           => $transferToEmail,
		    'creditCount'     	        => $creditCount
        );
        $Client = new SoapClient("http://service.rspread.com/Service.asmx?WSDL");
        Return $Client -> TransferCredit( $paraArray );
    }