`

    Imports QuickFix

    Public Sub fromApp(Dim message As Message, Dim sessionID As SessionID) Implements Application.fromApp
      crack(message, sessionID)
    End Sub

    Public Overloads Overrides Sub onMessage(ByVal message As QuickFix42.NewOrderSingle, ByVal sessionID As SessionID)
      Dim clOrdID As New ClOrdID()
      message.get(clOrdID)

      Dim clearingAccount As New ClearingAccount()
      message.get(clearingAccount)
    End Sum

    Public Overloads Overrides onMessage(ByVal message As QuickFix42.OrderCancelRequest, ByVal sessionID As QuickFix.SessionID)
      Dim clOrdID As New ClOrdID()
      message.get(clOrdID)

`' compile time error!! field not defined for OrderCancelRequest Dim clearingAccount As new ClearingAccount() message.get(clearingAccount) End Sub