[ű]
=õǰڴС
[ȼ]
=F6
ֹͣ=F11
ͣ=F10
[]
Sub Main()
	'ǰ
	HWindow.GetClientRect x,y,x1,y1
	MsgBox "Width:" & x1 - x & " " & "Height:" & y1 - y
End Sub
[]
