Public Function CompareTo( _
   ByVal other As DbGuid _
) As Integer

public int CompareTo( 
   DbGuid other
)

DbGuid last = DbGuid.NewGuid();
for (int i = 0; i < 10000; i++)
{
    DbGuid test = DbGuid.NewGuid();
    TestSequence(last, test);
    TestSequence(last, test.ToSqlGuid());
    TestSequence(last.ToSqlGuid(), test);
    TestSequence(last.ToSqlGuid(), test.ToSqlGuid());
    Assert.IsTrue(last.CompareTo(test) < 0);
    last = test;
}

Dim last As DbGuid = DbGuid.NewGuid()
Dim i As Integer = 0
While i < 10000
    Dim test As DbGuid = DbGuid.NewGuid()
    TestSequence(last, test)
    TestSequence(last, test.ToSqlGuid())
    TestSequence(last.ToSqlGuid(), test)
    TestSequence(last.ToSqlGuid(), test.ToSqlGuid())
    Assert.IsTrue(last.CompareTo(test) < 0)
    last = test
    System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While