XProfan

Def GetWindowRect(2) !"USER32", "GetWindowRect"
Cls
Decimals 0
Declare b#,Button&
Button&=CreateButton(%hwnd,"test",10,100,40,20)
Dim b#,16
print Height(%hwnd),Width(%hwnd)
Print %winright - %winleft,%winbottom - %wintop
GetWindowRect(%hwnd,b#)
print Long(b#,0),Long(b#,4),Long(b#,8),Long(b#,12)
print Height(Button&),Width(Button&)
GetWindowRect(Button&,b#)
print Long(b#,0),Long(b#,4),Long(b#,8),Long(b#,12)
print Long(b#,12) - Long(b#,4),Long(b#,8) - Long(b#,0)
Dispose b#