Public Declare Function sewindowlong Lib "user32" Alias "setwindowlonga" (ByVal hwnd As Long, ByVal nindex As Long, ByVal dwnewlong As Long) As Long

Public Const pcstrappPlatform As String = "Win 95/98/XP"
Public Const gwl_hwndparent = (-8)

运行时弹出“编译错误：常数、固定长度字符串、用户定义类型以及declare语句不允许作为对象模块的public成员”

private Const pcstrappPlatform As String = "Win 95/98/XP"
private Const gwl_hwndparent = (-8)

这个我也试过了，不管用。

试过了，不管用啊

不是吧！代码写在哪里？
.frm
.mod
.cls
 

代码在.frm中

private  Declare Function sewindowlong Lib "user32" Alias "setwindowlonga" (ByVal hwnd As Long, ByVal nindex As Long, ByVal dwnewlong As Long) As Long

Const pcstrappPlatform As String = "Win 95/98/XP"
Const gwl_hwndparent = (-8)

如果你非要public的话，请放到模块中