Using scope As New TransactionScope()
            Dim p As New Payment()
            'Poulate the payment information
            Dim ps = ObjectFactory.GetObject(Of IPaymentService)()
            ps.ProcessPayment(p)

            Dim r As New Receipt()
            'Populate the receipt
            Dim rs = ObjectFactory.GetObject(Of IReceiptService)()
            rs.Save(r)

            Dim o As New Order()
            'Populate the order
            Dim os = ObjectFactory.GetObject(Of IOrderService)()
            os.Save(o)

            scope.Complete()
        End Using