VB将桌面作为子窗口在Form上操作

Option Explicit
Private Declare Function GetDesktopWindow Lib “user32” () As Long
Private Declare Function SetParent Lib “user32” (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim hWad As Long

'把桌面作为子窗口
Private Sub Command1_Click()
hWad = FindWindow(vbNullString, “Program Manager”)
SetParent hWad, Me.hWnd
End Sub

'还原桌面画面到桌面
Private Sub Command2_Click()
SetParent hWad, GetDesktopWindow
End Sub