代碼貼出來吧 API不需要引用什么 直接寫聲明 然后調用即可
Private Declare Function getwindowlong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nindex As Long) As Long
Private Declare Function setwindowlong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nindex As Long, ByVal dwnewlong As Long) As Long
Private Declare Function findwindow Lib "user32" Alias "FindWindowA" (ByVal lpclassname As String, ByVal lpwindowname As String) As Long
Alias 后面的函數名有大小寫區別

不需要，需要在程序的Option中聲明這個API就可以了，你看看書，應該是少了聲明，形如
Declare Function API名字 Lib "API庫名，一般是kernel32等" (ByVal 參數列表) As 返回值

估計是你復制的時候聲明里面包含了非法字符或某些地方沒有空格，我以前經常遇到這種情況
建議用vb自帶的工具 “API 文本瀏覽器”來查找并復制API函數
****************************
復制了你代碼，在我這邊我刪除了其中的下劃線，使一個聲明占一行
運行測試沒問題！