Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs)
	Dim files As String() = New String() {"c:\test2\test.txt"}
	Me.DoDragDrop(New DataObject(DataFormats.FileDrop, files), _
  DragDropEffects.Copy)
End Sub

Gruß
Christoph