Need Help to find desktop handle

hmmmmmm this is what i got :

Dim progman As Long

Dim shelldlldefview As Long

Dim syslistview As Long



progman = FindWindow("progman", vbNullString)

shelldlldefview = FindWindowEx(progman, 0&, "shelldll_defview", vbNullString)

syslistview = FindWindowEx(shelldlldefview, 0&, "syslistview32", vbNullString)



If syslistview = 0 Then

Msgbox "Error: Cannot find window"

Exit Sub

End If

‘progman’ i assume is the handle to the desktop.