VB6.0同行来看看

需要注意的是：API函数是区分大小写的，所以你的问题关键就出在大小写上。只要你把API函数改为如下就可以了：
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
这些错误其实如果你把程序中那些on error resume next去掉就可以了，这些错误陷阱一般是建议你尽量排除了所有已知的错误之后再加上去，这是编程的一个基本原则。