Attribute VB_Name = "Module1"
Public Declare Function GetWindowLong _
Lib "user32" Alias "GetWindowLongA" _
( _
    ByVal hWnd As Long, ByVal nIndex As Long _
 ) As Long
'hwnd為窗口句柄
'nIndex指示要獲得窗口哪方面的特征
'nIndex參數(shù)可以為下列常量之一：
'GWL_EXSTYLE
'GWL_HINSTANCE
'GWL_HWNDPARENT
'GWL_ID
'GWL_STYLE
'GWL_WNDPROC
'GWL_USERDATA
'---------------------------------------------
Public Declare Function SetWindowLong _
Lib "user32" Alias "SetWindowLongA" _
( _
    ByVal hWnd As Long, ByVal nIndex As Long, _
    ByVal dwNewLong As Long _
 ) As Long
'hwnd為要設(shè)置特征的窗口的句柄
'nIndex指示要設(shè)置窗口哪方面特征
'dwNewLong為表示窗口信息的一個(gè)Long類型數(shù)值
'---------------------------------------------
Public Const GWL_STYLE = (-16)
Public Const WS_CAPTION = &HC00000
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_SYSMENU = &H80000
'聲明SetWindowLong和GetWindowLong函數(shù)將要使用的常量
'---------------------------------------------

Public Declare Function SetWindowPos Lib "user32" _
( _
    ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _
    ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
    ByVal cy As Long, ByVal wFlags As Long _
) As Long

Public Enum ESetWindowPosStyles
    SWP_SHOWWINDOW = &H40
    SWP_HIDEWINDOW = &H80
    SWP_FRAMECHANGED = &H20
    'The frame changed: send WM_NCCALCSIZE
    SWP_NOACTIVATE = &H10
    SWP_NOCOPYBITS = &H100
    SWP_NOMOVE = &H2
    SWP_NOOWNERZORDER = &H200
    'Don't do owner Z ordering
    SWP_NOREDRAW = &H8
    SWP_NOREPOSITION = SWP_NOOWNERZORDER
    SWP_NOSIZE = &H1
    SWP_NOZORDER = &H4
    SWP_DRAWFRAME = SWP_FRAMECHANGED
    HWND_NOTOPMOST = -2
End Enum
'---------------------------------------------
Public Declare Function GetWindowRect Lib "user32" _
( _
    ByVal hWnd As Long, lpRect As RECT _
    ) As Long
'GetWindowRect函數(shù)獲得整個(gè)窗口的范圍矩形
'窗口的邊框、標(biāo)題欄、滾動(dòng)條及菜單等都在這個(gè)矩形內(nèi)
'hWnd參數(shù)為L(zhǎng)ong型，要獲得范圍矩形的窗口的句柄
'lpRect參數(shù)為RECT結(jié)構(gòu)，屏幕坐標(biāo)中隨同窗口裝載的矩形
   
Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
'---------------------------------------------