oLoan = CreateObject("AtFinCalc.Loan") oFlowItem=CreateObject("AtfinCalc.CashFlow") oFlows=CreateObject("AtfinCalc.CashFlows") orig = 100000 oloan.Amount = orig oloan.Periods = 15 * 12 oloan.Rate = .0725 / 12 payment = oloan.CalcPayment() ?payment flows=oloan.CalcCashFlows() *-- works in vfp - but debugger doesn't recognize flows and flow *-- in the same way that it does oFlows and oFlowItem *-- amembers doesn't work on this object for each flow in flows *' Do processing interest = flow.Interest &&' Interest Paid ?interest payment = flow.Payment &&' Payment Amount principle = flow.principle ?payment next flow *-- doesn't work in vfp - took this code from their vb example and revised for i = 0 to flows.Count - 1 balance = flows(i).Balance && get error flows is not an array ocurrent=flows(i) && error 'flows.prg does not exist ?ocurrent.balance next i