求问，ListBox控件SetParent list1.hWnd,0后出现的问题

请各位高手帮个忙，大致内容可以这样：
创建一个Form窗口，里面放置一个ListBox控件，然后在Load过程中添加以下代码：
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 6
List1.AddItem Str(i)
Next i
SetParent List1.hWnd, 0 '将list的父窗口设置为桌面窗口
End Sub
然后发现，单击ListBox无法选中其中的Item项，这个是由什么原因造成的？？
以上是对于问题的一个模似，请各路高手支下招，想了一周也没有想通。
围观ing

这样做有啥意义吗？ #1:没用到就没什么意思，但遇到相似的处理时，自然纠结不以。哎，现在问题找出来了（焦点设置不对），但怎么设置焦点都没用，其中的Item还是没法选择，只能滚动其滚动条，搞不明白了。 将控件设置为窗口的子窗口没有意义，如果是作为它的内嵌控件，用的是SetWindowLong

补充：VB ,  API