API函数常量值在vb中的确定？

Question

Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private 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
Const GWL_STYLE = (-16)
Const WS_THICKFRAME = &H40000
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOZORDER = &H4
Const SWP_FRAMECHANGED = &H20        ’  The frame changed: send WM_NCCALCSIZE
Const SWP_DRAWFRAME = SWP_FRAMECHANGEDPrivate Sub Form_Load()
    SetWindowLong Picture1.hwnd, GWL_STYLE, _
    GetWindowLong(Picture1.hwnd, GWL_STYLE) Or WS_THICKFRAME
    SetWindowPos Picture1.hwnd, hwnd, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME
End Sub
对于这段程序码，请问：GWL_STYLE 定义为—16的依据是什么？这个常量值的信息在何处可获得？

Answer 1

依據是什麼可能要問MIS才知道了.
它是一個API常數,
Window field offsets for GetWindowLong() and GetWindowWord()
Const GWL_STYLE As Long = -16

Answer 2

这些常量值可在VB自代的API浏览器中查找
至于他为什么定为-16就象你为什么要取ID为plucky 一样