Dim di As New IO.DirectoryInfo("C:\Windows")
        Dim files() As IO.FileInfo = di.GetFiles()
 
        Dim ordFiles = From f In files Order By f.CreationTime
 
        ListBox1.DataSource = New List(Of IO.FileInfo)(ordFiles)
        ListBox1.DisplayMember = "FullName"

        Dim sco As New System.Comparison(Of IO.FileInfo)(Function(x As _
          IO.FileInfo, y As IO.FileInfo) x.CreationTime.CompareTo( _
          y.CreationTime))
        Array.Sort(files, sco)
 
        ListBox1.DataSource = files
        ListBox1.DisplayMember = "FullName"

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov