Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myArray As Array = Array.CreateInstance(Type.GetType("System.String"), 1)
myArray.SetValue("d:\c.xml", 0)
Dim dd As DataObject = New DataObject("FileNameW", myArray)
Clipboard.SetDataObject(dd, True)
End Sub