Module Module1
    Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Integer
    'hwnd為窗口句柄
    'nIndex指示要獲得窗口哪方面的特征
    'nIndex參數可以為下列常量之一：
    '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 Integer, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
    'hwnd為要設置特征的窗口的句柄
    'nIndex指示要設置窗口哪方面特征
    'dwNewLong為表示窗口信息的一個Long類型數值
    '---------------------------------------------
    Public Const GWL_STYLE As Short = (-16)
    Public Const WS_CAPTION As Integer = &HC00000
    Public Const WS_MAXIMIZEBOX As Integer = &H10000
    Public Const WS_MINIMIZEBOX As Integer = &H20000
    Public Const WS_SYSMENU As Integer = &H80000
    '聲明SetWindowLong和GetWindowLong函數將要使用的常量
    '---------------------------------------------

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

    Public Enum ESetWindowPosStyles
        SWP_SHOWWINDOW = &H40S
        SWP_HIDEWINDOW = &H80S
        SWP_FRAMECHANGED = &H20S
        SWP_NOACTIVATE = &H10S
        SWP_NOCOPYBITS = &H100S
        SWP_NOMOVE = &H2S
        SWP_NOOWNERZORDER = &H200S
        SWP_NOREDRAW = &H8S
        SWP_NOREPOSITION = ESetWindowPosStyles.SWP_NOOWNERZORDER
        SWP_NOSIZE = &H1S
        SWP_NOZORDER = &H4S
        SWP_DRAWFRAME = ESetWindowPosStyles.SWP_FRAMECHANGED
        HWND_NOTOPMOST = -2
    End Enum
    Public Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Integer, ByRef lpRect As RECT) As Integer
    'GetWindowRect函數獲得整個窗口的范圍矩形
    '窗口的邊框、標題欄、滾動條及菜單等都在這個矩形內
    'hWnd參數為Long型，要獲得范圍矩形的窗口的句柄
    'lpRect參數為RECT結構，屏幕坐標中隨同窗口裝載的矩形
    Public Structure RECT
        Dim Left_Renamed As Integer
        Dim Top As Integer
        Dim Right_Renamed As Integer
        Dim Bottom As Integer
    End Structure
End Module