Friend Class EntryData



    Friend FileName As String

    Friend VirtualFileName As String

    Friend Position As Integer



    Public Sub New(ByVal fileName As String, _

                   ByVal virtualFileName As String, _

                   Optional ByVal position As Integer = 0)



        Me.FileName = fileName

        Me.VirtualFileName = virtualFileName

        Me.Position = position



    End Sub



End Class