vb 怎么判断当前活动窗口为系统桌面

如题
就是判断现在显示的是xp桌面，如何操作，谢谢
（不是判断活动窗口哈）

---

XP桌面的句柄是可以找到的.

---

用类名也可以.

---

引用

用类名也可以.

我用类名不同的情况得到的活动窗体句柄不一致啊，帮我看下，怎么回事，
按下快速启动显示桌面，或者在点击一下已经打开的文件夹，在点击快速启动的显示桌面值不一致，怎么判断呢，我想要一个效果就是，按下显示桌面（快速启动的或者win+d键）都能检测到，然后采取操作
VB code:
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String,