' The proper way to create the objects: You must instantiate the MbtComMgr
' and then grab references to the MbtOrderClient and MbtQuotes objects off it.
' Only the MbtComMgr is instantiated using the VB "New" keyword:
'
' VB6:
Set myComMgr = New MbtComMgr ' instantiate
Set myOrders = myComMgr.OrderClient ' grab reference
Set myQuotes = myComMgr.Quotes ' grab reference

' VB.NET (NET has deprecated the "Set" keyword):
myComMgr = New MbtComMgr
myOrders = myComMgr.OrderClient
myQuotes = myComMgr.Quotes

' C#.NET
myComMgr = new MbtComMgr();
myOrderClient = myComMgr.OrderClient;
myQuotes = myComMgr.Quotes;

' VB6 - new timeActivate, timeExpire date fields and dStrikePrice in MbtOrderClient.Submit():
' -------------------------------------------------------------------------------------------------------
' Please note, timeActivate and timeExpire are NOT used yet. Just pass a NULL or blank
'
Dim timeActivate As Date
Dim timeExpire As Date
Dim dStrikePrice As Double

Function Submit(   ' copied from VB IDE Object Browser - function key F2
    lBuySell As Long,
    lVolume As Long,
    bstrSymbol As String,
    dPrice As Double,
    dStopPrice As Double,
    lTif As Long,
    lCapacity As Long,
    lOrdType As Long,
    lVolType As Long,
    lDisplayQty As Long,
    pAcct As MbtAccount,
    bstrMarket As String,
    bstrPrefMMID As String,
    dPriceOther As Double,
    dPriceOther2 As Double,
    timeActivate As Date, ' NOT used yet. Just pass a NULL or blank
    timeExpire As Date, ' NOT used yet. Just pass a NULL or blank
    lExpMonth As Long,
    lExpYear As Long,
    dStrikePrice As Double,
    lCondType As Long,
    lPriceVsSpeed As Long,
    pbstrRetMsg As String
) As Boolean

' C++ - extracting/parsing new UTCDateTime date/time object:
' -------------------------------------------------------------------------------------------------------
' Take a look at OnQuoteData in DlgLevel2.cpp in the NavOCq C++ sample:
HRESULT CDlgLevel2::OnQuoteData(QUOTERECORD* pQuote)
{
    CString sOut;
    double dLast = pQuote->dLast;
    long lSize = pQuote->lLastSize;
    long lVol = pQuote->lVolume;
    COleDateTime cTime(pQuote->UTCDateTime);
    sOut.Format("L1 $%.2f %d %d %s %s", dLast, lSize, lVol, cTime.Format("%m/%d/%y"), cTime.Format("%H:%M:%S"));
    ...

' C++ - new timeActivate, timeExpire date fields and dStrikePrice in MbtOrderClient.Submit():
' -------------------------------------------------------------------------------------------------------
' Please note, timeActivate and timeExpire are NOT used yet. Just pass a NULL or blank
'
double dStrikePrice = 0;
COleDateTime dDte;
VARIANT_BOOL bSubmit = m_pOrderClient->Submit(
    lBuySell, lVol, _bstr_t(sSym), dPrice, 0, lTIF, 0, lOrdType,
    lVolType, 0, m_pDefaultAccount, _bstr_t(sRoute), "", 0, 0,
    dDte, ' NOT used yet. Just pass a NULL or blank
    dDte, ' NOT used yet. Just pass a NULL or blank
    0, 0,
    dStrikePrice,
    0, 0,
    &bstrRetMsg
);

' C# - new timeActivate, timeExpire date fields and dStrikePrice in MbtOrderClient.Submit():
' -------------------------------------------------------------------------------------------------------
' Please note, timeActivate and timeExpire are NOT used yet. Just pass a NULL or blank
'
System.DateTime dDte = new System.DateTime(0);
bool bSubmit = m_OrderClient.Submit()(
    lBuySell, lVol, sSym, dPrice, 0.0, lTIF, 0, lOrdType,
    lVolType, 0, m_DefaultAccount, sRoute, "", 0, 0,
    dDte, ' NOT used yet. Just pass a NULL or blank
    dDte, ' NOT used yet. Just pass a NULL or blank
    0, 0,
    dStrikePrice,
    0, 0, ref bstrRetMsg
);

' VB6 - example showing grabbing reference to the MbtOrderClient object, setting
' the new OnDemandMode flag to True, and forcing the loading of all accounts:
' -------------------------------------------------------------------------------------------------------
Set oOrders = oComMgr.OrderClient
oOrders.OnDemandMode = True ' False to have all accounts automatically loaded

' Load each account upon MbtOrderClient.OnLogonSucceed firing:
Private Sub oOrders_OnLogonSucceed()
    Dim oAct As MbtAccount, oActs As MbtAccounts
    Set oActs = oOrders.Accounts
    ' For-Each internally locks the collection; For-Next does not!
    For Each oAct In oActs
        oAct.Load
    Next
End Sub

' Typically fires immediately after executing the MbtAccount.Load method.
Private Sub oOrders_OnAccountLoading(ByVal pAcct As MBTORDERSLib.IMbtAccount)
    Debug.Print "OnAccountLoading! " & pAcct.Account
End Sub

' Typically fires when the MbtAccount has been fully loaded and is ready for use.
Private Sub oOrders_OnAccountLoaded(ByVal pAcct As MBTORDERSLib.IMbtAccount)
    Debug.Print "OnAccountLoading! " & pAcct.Account
End Sub

' VB6 - new MbtOrderClient events indicate failure to cancel or change an order
' -------------------------------------------------------------------------------------------------------
Private Sub oOrders_OnCancelRejected(ByVal pOrd As MBTORDERSLib.IMbtOpenOrder)
    Debug.Print "OnCancelRejected! " & pOrd.Account.Account
End Sub

Private Sub oOrders_OnReplaceRejected(ByVal pOrd As MBTORDERSLib.IMbtOpenOrder)
    Debug.Print "OnReplaceRejected! " & pOrd.Account.Account
End Sub