【VB】嵌入桌面 将桌面句柄嵌入到本程序窗口

VB 嵌入桌面，VB 将桌面句柄嵌入到本程序窗口：

Option Explicit

'注意：小心使用！如果关掉本程序会直接关掉 Explorer.exe ！！！

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Form_Load()
    SetParent FindWindow("progman", vbNullString), Me.hWnd
End Sub