Your iterator function should look like this:
Public Iterator Function QueryFeatures(ByVal extent As DotSpatial.Data.Extent) As System.Collections.Generic.IEnumerable(Of DotSpatial.Data.IFeature) Dim env = New SharpSbn.DataStructures.Envelope(extent.MinX, extent.MaxX, extent.MinY, extent.MaxY) ForEach queryFid In _tree.QueryFids(env) Dim fid = CInt(queryFid) - 1 Yield _shapeFile.GetFeature(fid) NextEndFunction