Private Sub SetFilesToClipboard(ByVal fileNames As IEnumerable(Of String))
        Dim files As New Specialized.StringCollection
        For Each fileName As String In fileNames
            files.Add(fileName)
        Next
        Clipboard.SetFileDropList(files)
    End Sub

        Dim p As Process = Process.Start("path")