Public Function New( _
   ByVal filename As String, _
   ByVal blockSize As Integer _
)

public FragmentedFile( 
   string filename,
   int blockSize
)

long idFirst, idSecond, idThird;
using (TempFile file = new TempFile())
{
    if (true)
    {
        FragmentedFile ff = FragmentedFile.CreateNew(file.TempPath, 512, 100, 2, FragmentedFile.OptionsDefault);
        idFirst = ff.Create();
        idSecond = ff.Create();
        idThird = ff.Create();
        ff.Delete(idFirst);

        //Dangerous, only used for testing the case when ff was never disposed, nor GC'd
        GC.SuppressFinalize(ff);
        ff = null;
    }

    GC.Collect(0, GCCollectionMode.Forced);
    GC.WaitForPendingFinalizers();

    using (FragmentedFile f2 = new FragmentedFile(file.TempPath, 512))
    {
        Assert.IsTrue(f2.Create() < idSecond);
        Assert.IsTrue(f2.Create() > idThird);
    }
}

Dim idFirst As Long, idSecond As Long, idThird As Long
Using file As New TempFile()
    If True Then
        Dim ff As FragmentedFile = FragmentedFile.CreateNew(file.TempPath, 512, 100, 2, FragmentedFile.OptionsDefault)
        idFirst = ff.Create()
        idSecond = ff.Create()
        idThird = ff.Create()
        ff.Delete(idFirst)

        'Dangerous, only used for testing the case when ff was never disposed, nor GC'd
        GC.SuppressFinalize(ff)
        ff = Nothing
    End If

    GC.Collect(0, GCCollectionMode.Forced)
    GC.WaitForPendingFinalizers()

    Using f2 As New FragmentedFile(file.TempPath, 512)
        Assert.IsTrue(f2.Create() < idSecond)
        Assert.IsTrue(f2.Create() > idThird)
    End Using
End Using