'Code by 魑 魑 魍魉' Mailto: DemonStudio@hotmail.com
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As LongPrivate Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private const gw_child = 5Private const gw_hWndnext = 2
Private Sub Form_Load () DIM HWD, CLA AS Longdim Lon as stringlon = space (255) HWD = getWindow (me.hwnd, gw_child) get the first sub-window handle Me.caption = hwddo while hwd <> 0 'If the handle < > 0 Cycle CLA = GetClassName (HWD, LON, 255) 'Name List1.AddItem HWD & "& Trim $ (lon) in this sub-window List1.additem HWD &" & TRIM $ (lon) 到 to list1 hwd = getWindow (hwind, gw_hwndnext ) 'Find Next Loopend Sub