[LB] Enable/Disable Window DLL

nomainwin
WindowHeight = 140
WindowWidth = 50
UpperLeftX = 100
UpperLeftY = 100
open "Enable" for window as #1
print #1, "trapclose [q]"
UpperLeftX = 250
button #2, "Enable/Disable",[enable],ul,1,1,100,100
open "Change" for window as #2
print #2, "trapclose [q]"
enable = 1
hd = hwnd(#1)
goto [enable]
wait
[q]
close #1
close #2
end
[enable]
if enable = 1 then
enable = 0
else
enable = 1
end if
calldll #user32, "EnableWindow", _
                hd as long, _
                enable as long, _
                result as long
wait