private function boolean GetTextExtentPoint32 (long hDC, string lpString, long cbString, ref SIZE lpSize) ALIAS FOR  "GetTextExtentPoint32A"  LIBRARY  "GDI32.DLL" 
private function long GetDC (long hWnd) LIBRARY  "USER32.DLL" 
private function long ReleaseDC (long hWnd, long hDC) LIBRARY  "USER32.DLL" 
private function long SelectObject(long hDC, long hGDIObj) LIBRARY  "GDI32.DLL" 
private function boolean GetClientRect(long hWnd, ref RECT lpRect) LIBRARY  "USER32.DLL" 

type SIZE from structure
	long		cx
	long		cy
end type