Public Function Peek( _
   ByRef value As KeyValuePair(Of TKey,TValue) _
) As Boolean

public bool Peek( 
   out KeyValuePair<TKey,TValue> value
)

var test = new LurchTableTest<int, string>(LurchTableOrder.Access);
Assert.AreEqual(LurchTableOrder.Access, test.Ordering);
var sample = GetSample();
foreach (var item in sample)
    test.Add(item.Key, item.Value);

Array.Reverse(sample);
foreach (var item in sample)
    Assert.AreEqual(item.Value, test[item.Key]);

KeyValuePair<int, string> value;
foreach (var item in sample)
{
    Assert.IsTrue(test.TryDequeue(out value));
    Assert.AreEqual(item.Key, value.Key);
    Assert.AreEqual(item.Value, value.Value);
}

Assert.IsFalse(test.Peek(out value));
Assert.IsFalse(test.TryDequeue(out value));

Dim test As var = New LurchTableTest(Of Integer, String)(LurchTableOrder.Access)
Assert.AreEqual(LurchTableOrder.Access, test.Ordering)
Dim sample As var = GetSample()
For Each item As var In sample
    test.Add(item.Key, item.Value)
Next

Array.Reverse(sample)
For Each item As var In sample
    Assert.AreEqual(item.Value, test(item.Key))
Next

Dim value As KeyValuePair(Of Integer, String)
For Each item As var In sample
    Assert.IsTrue(test.TryDequeue(value))
    Assert.AreEqual(item.Key, value.Key)
    Assert.AreEqual(item.Value, value.Value)
Next

Assert.IsFalse(test.Peek(value))
Assert.IsFalse(test.TryDequeue(value))