`

    Dim message As New QuickFix42.MarketDataSnapshotFullRefresh(New QuickFix.Symbol("QF"))
    Dim group As New QuickFix42.MarketDataSnapshotFullRefresh.NoMDEntries()

    group.set(New QuickFix.MDEntryType('0'))
    group.set(New QuickFix.MDEntryPx(12.32))
    group.set(New QuickFix.MDEntrySize(100))
    group.set(New QuickFix.OrderID("ORDERID"))
    message.addGroup(group)

    group.set(New QuickFix.MDEntryType('1'))
    group.set(New QuickFix.MDEntryPx(12.32))
    group.set(New QuickFix.MDEntrySize(100))
    group.set(New QuickFix.OrderID("ORDERID"))
    message.addGroup(group)

`