Sub test()

    Dim tl As ITradeList
    Dim trades As Variant

    Set tl = ProxyFactory.TradeSheet(Sheet1)
    trades = tl.trades
    Debug.Print trades(2, 1)

    Set tl = ProxyFactory.TradeSheet(Sheet2)
    trades = tl.trades
    Debug.Print trades(2, 1)

End Sub

                var tokenStreamProvider = new SimpleVBAModuleTokenStreamProvider();
                var tokens = tokenStreamProvider.Tokens(SelectedCode);
                var rewriter = new TokenStreamRewriter(tokens);

Debug.Print "a"
#If Foo Then
Debug.Print "b"
#Else
Debug.Print "c"
#End If
Debug.Print "d"

Debug.Print "a"



Debug.Print "c"

Debug.Print "d"

#If LateBind Then
Public Function CreateMailMessage(MailBody As String) As Object
  Dim OutlookApp As Object

  Const olMailItem As Long = 1
#Else
Public CreateMailMessage(MailBody As String) As Outlook.MailItem
  Dim OutlookApp As Outlook.Application
#End If

  Set OutLookApp = GetOutlookApp()
  Set CreateMailMessage = OutlookApp.CreateItem(olMailItem)
End Function

Function Foo() As Collection
    Set Foo = Excel.Application
End Function

'Class OrderSheetProxy
Implements IOrders
Implements IOrdersInitializer

Private Type TOrderSheetProxy
  Sheet As Worksheet
End Type

Private this As TOrderSheetProxy

Private Property Get IOrders_Orders() As Variant
  IOrders_Orders = this.Sheet.UsedRange.Value2
End Property

Private Sub IOrdersInitializer_Initialize(sht As Worksheet)
  Set this.Sheet = sht
End Sub

'Class ProxyFactory
Public Function orders(sht As Worksheet) As IOrders

  Dim temp As IOrdersInitializer
  Set temp = New OrderSheetProxy

  temp.Initialize sht

  'Return the polymorphic form of IOrdersInitializer as IOrders
  Set orders = temp

End Function

Private navigator As KeyNavigator

Private Sub Form_Load()
  Set navigator = New KeyNavigator
End Sub


`Class KeyNavigator

Private WithEvents frm As Access.Form

Private Sub Class_Initialize()
  If TypeOf CodeContextObject Is Access.Form Then
    Set frm = CodeContextObject
  Else
    Err.Raise 5
  End If
  'Initialize stuff here...
End Sub

'Interface IDataBinding

'No members...


'Access form code-behind

Implements IDataBinding
Private WithEvents Binding As DataBinding

Private Sub Form_Load()
  Set Binding As New DataBinding
End Sub

'DataBinding class

Private Sub Class_Initialize()
  If TypeOf CodeContextObject Is IDataBinding _
  And TypeOf CodeContextObject Is Access.Form Then
    'Initialize...
  Else
    'Error!
  End If
End Sub