Option Strict On Option Explicit On Dim pptt As New PowerPointTemplate()
Interface IOrder
Property OrderID() as Int32
Property Customer() as String
Property OrderDate() as DateTime
Property OrdersTotal() as Single
End Interface
Dim orders as IEnumerable(Of Order) = GetOrders()
pptt.BindData(orders, "Orders", pptt.CreateDataImportProperties())
|