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成员”

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

试过了，不管用啊

代码在.frm中