关于API函数别名的问题

Question

在Modules中声明了API函数：
Declare Function ReadFile Lib "kernel32" Alias "ReadFileCOM" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Long) As Long
在Form窗体中如下调用时
    Dim retval As Long
    retval = ReadFileCOM(ComNum, ByVal Buffer, 255, RetBytes, 0)
出错，Sub Or Function not denied!请问是什么原因啊？

Answer 1

Declare Function ReadFileCOM Lib "kernel32" Alias "ReadFile" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Long) As Long

Answer 2

这样还是不对啊，提示：
Can't find DLL entry point ReadFile in kernel32.
请问是什么问题！

Answer 3

去掉Alias "ReadFileCOM" 
只用readfile

Answer 4

现在是我程序里有一个ReadFile自定义函数，而且好多地方用到，所以要调用API函数是用别名的！去掉Alias "ReadFileCOM" 那不是和自定义ReadFile函数混淆了嘛！有没有什么好的办法啊？只能是引用API函数的别名？

Answer 5

别名才是真名，不要搞反了，如果说还是找不到，恐怕你的api名称有误