int i;
string dataString = new String('?', 1024);
Session.DefaultSession.ClearDatabase();
Console.WriteLine("Creating objects");
// The loop here creates 1000 objects.
for(i = 0; i<1000; ++i) {
    SampleObject theObject = new SampleObject();
    theObject.Data = dataString;
    theObject.Save();
}

Dim i As Integer
Dim dataString As New String("?", 1024)
Session.DefaultSession.ClearDatabase()
Console.WriteLine("Creating objects")
Dim theObject As SampleObject
' The loop here creates 1000 objects.
For i = 1 To 1000
    theObject = New SampleObject()
    theObject.Data = dataString
    theObject.Save()
Next

GC.Collect();
i = 0;
Console.WriteLine("Processing objects with XPCursor");
XPCursor cursor = new XPCursor(Session.DefaultSession, typeof(SampleObject));
cursor.PageSize = 100;
// Loop through all the objects.
foreach(SampleObject theObject in cursor) {
    theObject.Data = new String('!', 1024);
    theObject.Save();
    ++i;
     // Every 100 objects write out memory used.
    if(i % 100 == 0)
Console.WriteLine(String.Format("Object {0}, memory allocated {1}", i, GC.GetTotalMemory(true)));
}

GC.Collect();
i = 0;
Console.WriteLine("Processing objects with XPCollection");
using(XPCollection collection = new XPCollection(Session.DefaultSession, typeof(SampleObject))) {
// Loop through all the objects.
    foreach(SampleObject theObject in collection) {
        theObject.Data = new String('@', 1024);
        theObject.Save();
        ++i;
        if(i % 100 == 0)
            // Every 100 objects write out memory used.
            Console.WriteLine(String.Format(" Object {0}, memory allocated {1}", i, 
              GC.GetTotalMemory(true)));
    }
}

GC.Collect()
 i = 0
 Console.WriteLine("Processing objects with XPCursor")
 Dim cursor As New XPCursor(Session.DefaultSession, GetType(SampleObject))
 cursor.PageSize = 100
' Loop through all the objects.
 For Each theObject In cursor
      theObject.Data = New String("!", 1024)
      theObject.Save()
      i = i + 1
      ' Every 100 objects write out memory used.
      If i Mod 100 = 0 Then
          Console.WriteLine(String.Format(" Object {0}, memory allocated {1}", i, _
            GC.GetTotalMemory(True)))
      End If
Next theObject

GC.Collect()
i = 0
Console.WriteLine("Processing objects with XPCollection")
' Loop through all the objects.
For Each theObject In New XPCollection(Session.DefaultSession, GetType(SampleObject))
    theObject.Data = New String("@", 1024)
    theObject.Save()
    i = i + 1
    ' Every 100 objects write out memory used.
    If i Mod 100 = 0 Then
  Console.WriteLine(String.Format("Object {0}, memory allocated {1}", i, GC.GetTotalMemory(True)))
    End If
Next theObject