以下是引用风吹过b在2010-8-16 16:42:54的发言：

我不知道有用没，我API 本来就不熟悉。你试试看吧。
'Picture2 放在 Picture1 里面，而  list1 放在 Picture2 里面，一层一层的套起来的。

Option Explicit

Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Command1_Click()

Print Form1.hwnd            '显示原始的各个控件
Print Picture1.hwnd
Print Picture2.hwnd
Print List1.hwnd
Print

Dim i As Long
Dim j As Long
i = List1.hwnd

Do While i > 0          '
    Print i             '显示中间结果
    j = i               '保存
    i = GetParent(i)    '取它的上一级
Loop

Print            '空一行
Print j         '窗体 Hwnd

End Sub