iNTERFACEWARE™ Inc.

Private Sub Command2_Click()

Dim Engine As New VMengine
Dim MyGrammar As VMcompositeGrammar
Dim Count As Integer

Engine.AddComposite
Engine.Composite(0).Name = "NEW"
Engine.Composite(0).Description = "Test Composite"
For Count = 0 To 3
  Engine.Composite(0).AddField
  Engine.Composite(0).FieldName(Count) = "Field" & CStr(Count+1)
  Engine.Composite(0).FieldDataType(Count) = VMstringType
Next Count
Set MyGrammar = Engine.Composite(0)
Engine.AddSegment
Engine.Segment(0).Name = "Test Segment"
Engine.Segment(0).AddField
Engine.Segment(0).FieldName(0) = "ID"
Engine.Segment(0).FieldType(0) = MyGrammar
Engine.Segment(0).Description = "Test"
Engine.Segment(0).FieldIsRequired(0) = True
Engine.Segment(0).FieldMaxRepeats(0) = 0
Engine.Save "C:\temp\VBexample2.vmd"

End Sub