Imports QuickFix.StringField
Imports QuickFix.DoubleField

Public Class MyStringField : Inherits StringField
  Public Sub New()
    MyBase.New(6123)
  End Sub

  Public Sub New(Dim data As String)
    MyBase.New(6123, data)
  End Sub
End Class

Public Class MyPriceField : Inherits DoubleField
  Public Sub New()
    MyBase(8756)
  End Sub

  Public Sub New(Dim data As Double)
    MyBase(8756, data)
  End Sub
End Class