Public Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long '# nIndex Public Const GWL_EXSTYLE As Long = -20 Public Const GWL_HINSTANCE As Long = -6 Public Const GWL_ID As Long = -12 Public Const GWL_STYLE As Long = -16 Public Const GWL_USERDATA As Long = -21 Public Const GWL_WNDPROC As Long = -4 Public Const DWL_DLGPROC As Long = 4 Public Const DWL_MSGRESULT As Long = 0 Public Const DWL_USER As Long = 8
'# dwStyle Public Const WS_ACTIVECAPTION As Long = &H1 Public Const WS_CHILD As Long = &H40000000 Public Const WS_CHILDWINDOW As Long = (WS_CHILD) Public Const WS_CLIPCHILDREN As Long = &H2000000 Public Const WS_CLIPSIBLINGS As Long = &H4000000 Public Const WS_DISABLED As Long = &H8000000 Public Const WS_DLGFRAME As Long = &H400000 Public Const WS_GROUP As Long = &H20000 Public Const WS_TABSTOP As Long = &H10000 Public Const WS_GT As Long = (WS_GROUP Or WS_TABSTOP) Public Const WS_HSCROLL As Long = &H100000 Public Const WS_MINIMIZE As Long = &H20000000 Public Const WS_ICONIC As Long = WS_MINIMIZE Public Const WS_MAXIMIZE As Long = &H1000000 Public Const WS_MAXIMIZEBOX As Long = &H10000 Public Const WS_MINIMIZEBOX As Long = &H20000 Public Const WS_OVERLAPPED As Long = &H0& Public Const WS_CAPTION As Long = &HC00000 Public Const WS_SYSMENU As Long = &H80000 Public Const WS_THICKFRAME As Long = &H40000 Public Const WS_POPUP As Long = &H80000000 Public Const WS_OVERLAPPEDWINDOW As Long = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX) Public Const WS_BORDER As Long = &H800000 Public Const WS_POPUPWINDOW As Long = (WS_POPUP Or WS_BORDER Or WS_SYSMENU) Public Const WS_SIZEBOX As Long = WS_THICKFRAME Public Const WS_TILED As Long = WS_OVERLAPPED Public Const WS_VISIBLE As Long = &H10000000 Public Const WS_TILEDWINDOW As Long = WS_OVERLAPPEDWINDOW Public Const WS_VSCROLL As Long = &H200000