vb 模塊代碼：tfStr.pTo = Form03.File1.Path？

Public Function ClipboardPasteFiles(Files() As String) As Long

改為

Public Function ClipboardPasteFiles(Files() As String,frm as Form) As Long

然後將tfStr.pTo = Form03.File1.Path改為tfStr.pTo =frm.File1.Path

調用的時候帶上窗體，比如是ClipboardPasteFiles(files,Form01)