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