HSPTV!掲示板

以下のように、子ウインドウ上にリストビューとinputを配置したのですが、
リストビューのアイテムを選択すると、inputにフォーカスが移らなくなってしまいます。

WS_CHILD属性を持たないウインドウ上であれば、このようなことにはならないようなのですが、
WS_CHILD属性を持つウインドウ上での回避策はありませんでしょうか。

//http://hspdev-wiki.net/?%A5%A6%A5%A3%A5%F3%A5%C9%A5%A6%A4%CE%BF%C6%BB%D2%B4%D8%B7%B8
#include "user32.as"
#define GWL_STYLE      (-16)
#define GWL_HWNDPARENT (-8)
#define WS_CHILD       0x40000000
screen 2, 300, 300: title "子ウィンドウ": hChild = hwnd
screen 0, 640, 480: title "親ウィンドウ": hParent = hwnd
GetWindowLong hChild, GWL_STYLE
SetWindowLong hChild, GWL_STYLE, stat|WS_CHILD
SetParent hChild, hParent
gsel 2

//	screen 3			;子ウインドウ上でなければ正常動作

//リストビューの設置
#define LVS_REPORT                   0x00000001
#define LVS_SINGLESEL                0x00000004
#define LVM_INSERTITEM               0x00001007
#define LVM_INSERTCOLUMN             0x0000101B
#define WS_BORDER                    0x00800000	
#define WS_VISIBLE                   0x10000000

winobj "SysListView32", "", 0, LVS_REPORT|LVS_SINGLESEL|WS_BORDER|WS_VISIBLE|WS_CHILD, 100, 50
hList = objinfo_hwnd(stat)
strBuf = "text"		
LVCOLUMN = $F,0,100,varptr(strBuf),0,1
LVITEM = $1,0,0,0,0,varptr(strBuf)
sendmsg hList, LVM_INSERTITEM, 0, varptr(LVITEM)
sendmsg hList, LVM_INSERTCOLUMN,1, varptr(LVCOLUMN)

//Inputの設置
pos 0,51
input a

ウィンドウスタイルにWS_CHILDを指定するとアクティブにならないような気がします