Private Sub Desktop(ByVal l As ListView)

        Dim f() As String = System.IO.Directory.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.Desktop))
        Dim d() As String = System.IO.Directory.GetDirectories(Environment.GetFolderPath(Environment.SpecialFolder.Desktop))

        For i As Integer = 0 To UBound(f)
            With l.Items : Dim s As ListViewItem
                s = .Add(f(i))
            End With
        Next

        For i As Integer = 0 To UBound(d)
            With l.Items : Dim s As ListViewItem
                s = .Add(d(i))
            End With
        Next

    End Sub