Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.Text = "some text"
      t.Pattern("some")
      t.Find()
      Dim m = t.Matches
      
      '// Get the parent uCalc instance from the Matches collection
      Dim parent_uc = m.uCalc
      
      '// Verify they are the same instance using their MemoryIndex
      Console.WriteLine(parent_uc.MemoryIndex = uc.MemoryIndex)
   End Sub
End Module