FUNCTION HEXX(uVal AS CONST UINT, iDigits AS CONST INTEGER) AS STRING
  LOCAL DYNAMIC sBuffer[((uVal * iDigits) + 1)] AS CHAR
  CONST sHexData$ = "0123456789ABCDEF"
  LOCAL n AS UINT
  LOCAL i,k,iCount
  n = uVal
  iCount = iDigits - 1
  FOR i = iCount TO 0 STEP -1
    k = n % 16
    sBuffer[i] = sHexData[k]
    n = n / 16
  NEXT i
  FUNCTION = sBuffer
END FUNCTION

FUNCTION HwndToString(hWnd AS HWND) AS STRING
	LOCAL sHwnd AS STRING
	SPRINT sHwnd$, hWnd%
	FUNCTION = sHwnd$
END FUNCTION

FUNCTION HwndToHex(hWnd AS HWND) AS STRING
	LOCAL sHwnd AS STRING
	SPRINT sHwnd$, hWnd%
	FUNCTION = "0x" & HEXX$(VAL(sHwnd$), 8)
END FUNCTION

FUNCTION StringToHwnd(shWnd AS STRING) AS HWND
	DIM intHWND AS UINT
	DIM hWnd AS HWND
	intHWND = VAL(shWnd)
	hWnd = (HWND)intHWND
	FUNCTION = hWnd
END FUNCTION

FUNCTION IntToHwnd(shWnd AS UINT) AS HWND
	DIM hWnd AS HWND
	hWnd = (HWND)shWnd
	FUNCTION = hWnd
END FUNCTION