Public MustInherit Class HFile
    Private pDoLink, pDeLink, pName As String, pUDate As String, pFSize As Long
    Property DoLink() As String
        Get
            Return pDoLink
        End Get
        Set(ByVal value As String)
            pDoLink = value
        End Set
    End Property
    Property DeLink() As String
        Get
            Return pDeLink
        End Get
        Set(ByVal value As String)
            pDeLink = value
        End Set
    End Property
    Property UDate() As String
        Get
            Return pUDate
        End Get
        Set(ByVal value As String)
            pUDate = value
        End Set
    End Property
    Property FSize() As Long
        Get
            Return pFSize
        End Get
        Set(ByVal value As Long)
            pFSize = value
        End Set
    End Property
    Property Name() As String
        Get
            Return pName
        End Get
        Set(ByVal value As String)
            pName = value
        End Set
    End Property
End Class
 
Public Class DFile : Inherits HFile
' wird noch ergänzt
End Class
 
' In der ArrayList Allfiles werden einfach Obejkte der Klasse DFile abgelegt. 
' im frmLoad
lstD.DataSource = AllFiles 'Datenquelle zuweisen
        lstD.DisplayMember = "Name" 'anzuzeigendes Member

MfG
Visual Studio .Net Team Suite 2008 - Meine neue lieblings IDE