DECLARE FUNCTION SetWindowLong LIB "user32" ALIAS "SetWindowLongA" (hWnd AS LONG,nIndex AS LONG, dwNewLong AS LONG) AS LONG
DECLARE FUNCTION GetWindowLong LIB "USER32" ALIAS "GetWindowLongA" (hwnd AS LONG, type AS LONG) AS LONG
CONST GWL_STYLE = -16

SUB FixButton(FixHandle AS LONG, Mode AS INTEGER)
	SetWindowLong(FixHandle, GWL_STYLE, (GetWindowLong(FixHandle, GWL_STYLE) XOR 11) + Mode)
END SUB

CONST fbmNormal = 0
CONST fbmDefault = 1
CONST fbmFixTo3CheckBox = 6
CONST fbmFixToGroupBox = 7
CONST fbmLeftAlign = &H100
CONST fbmRightAlign = &H200
CONST fbmTopAlign = &H400
CONST fbmBottomAlign = &H800
CONST fbmLabelButton = -41 'Accepts CHR$(10)
CONST fbmReturnToggleButton = -45 'Accepts CHR$(10)
CONST fbmReturnButton = -44 'Accepts CHR$(10)
CONST fbmIconButton = &H40
CONST fbmBitMapButton = &H80