有关窗体消息拦截的几个常量,相信你用得着

' 如果有关闭按钮按下
Private Const HTCLOSE = 20
Private Const HTMINBUTTON = 8
Private Const HTMAXBUTTON = 9
Private Const HTHELP = 21
Private Const HTOBJECT = 19
Private Const HTBORDER = 18
Private Const HTBOTTOMRIGHT = 17
Private Const HTBOTTOMLEFT = 16
Private Const HTBOTTOM = 15
Private Const HTTOPRIGHT = 14
Private Const HTTOPLEFT = 13
Private Const HTRIGHT = 11
Private Const HTLEFT = 10
Private Const HTVSCROLL = 7
Private Const HTMENU = 5
Private Const HTHSCROLL = 6
Private Const HTSIZE = HTGROWBOX
Private Const HTGROWBOX = 4
Private Const HTSYSMENU = 3
Private Const HTCAPTION = 2
Private Const HTCLIENT = 1
Private Const HTNOWHERE = 0
Private Const HTTRANSPARENT = -1
Private Const HTERROR = -2