' Message handler for the subclassed listview control
' NOTE: This sub class is to fix Windows redraw problem with
' Manifest version 6 for controls where it redraws lines
' through the text.
SUB myLVHandler(hwnd:int,uMsg:int,wParam:int,lParam:pointer),int 
	UINT x, n
	n=0
	SELECT uMsg
		Case WM_VSCROLL
			x = GetParent(hwnd)
			SendMessage x, WM_SETREDRAW, 0, 0
			CallWindowProcA(origfp,hwnd,uMsg,wParam,lParam)
			SendMessage x, WM_SETREDRAW, 1, 0
			_InvalidateRect(hwnd, *<WINRECT>n, FALSE)
			SendMessage x, WM_PAINT, 0, 0
			return 1
	ENDSELECT
RETURN CallWindowProcA(origfp,hwnd,uMsg,wParam,lParam)
ENDSUB