Private Class CompareWallpaperProperties
        Implements IComparer
        Private sort As WallPaperProperties.Sort
 
        ' Methods
        Public Sub New(ByVal sort As WallPaperProperties.Sort)
            Me.sort = sort
        End Sub
 
        Public Function Compare(ByVal x As Object, ByVal y As Object) As _
          Integer Implements System.Collections.IComparer.Compare
            Dim wallpaper1 As WallPaperProperties = DirectCast(x, _
            WallPaperProperties)
            Dim wallpaper2 As WallPaperProperties = DirectCast(y, _
            WallPaperProperties)
 
            If Me.sort = WallPaperProperties.Sort.Ascending Then
                Return New FileInfo(wallpaper1.Wallpaper).Name.CompareTo(New _
                  FileInfo(wallpaper2.Wallpaper).Name)
            Else
                Return New FileInfo(wallpaper2.Wallpaper).Name.CompareTo(New _
                  FileInfo(wallpaper1.Wallpaper).Name)
            End If
        End Function
    End Class

            For Each filePath As String In Directory.GetFiles(ParentPath)
                arrayWallpapers.Sort(New CompareWallpaperProperties( _
                  WallPaperProperties.Sort.Ascending))
                If arrayWallpapers.BinarySearch(filePath, New C) >= 0 Then
                    ...
                End If
            Next