可以在标准模块内使用pubulic声明, 也可以在窗体级通用里用Private声明, vb6的话可以使用api阅览器生成公有的或私有的函数声明。
具体api函数的使用去网上搜索是有的。PrivateDeclareFunctionCopyFileLib"kernel32"Alias"CopyFileA"(ByVallpExistingFileNameAsString,ByVallpNewFileNameAsString,ByValbFailIfExistsAsLong)AsLong
PrivateSubForm_Load()
CopyFile"c:1.txt","d:1.txt",true
EndSub
lpExistingFileNameString,源文件名
lpNewFileNameString,目标文件名
bFailIfExistsLong,如果设为TRUE(非零),那么一旦目标文件已经存在,则函数调用会失败。否则目标文件被改写