获得桌面hWnd的API,声明你自己加吧。
Dim dhwnd As Long
dhwnd = GetDesktopWindow()
dhwnd = FindWindowEx(dhwnd, 0, "Progman", "Program Manager")
'MsgBox dhwnd
dhwnd = FindWindowEx(dhwnd, 0, "SHELLDLL_DefView", vbNull)
'MsgBox dhwnd
dhwnd = FindWindowEx(dhwnd, 0, "SysListView32", vbNull)