Friend Class Item
    Private Type As TItem
    Friend Enum TItem
        File
        Directory
    End Enum
    Public Items As List(Of Item)
    Private Name As String
    Private Data As Object
    Public Sub New(ByVal Name As String, ByVal Data As Object)
            Me.Name = Name
            Me.Data = Data
    End Sub
End Class