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)