VB 将桌面句柄嵌入到本程序/自身窗口，VB 将桌面句柄嵌入本程序/自身窗口，VB 将桌面句柄嵌入到本程序窗口，VB 将桌面嵌入本程序/自身窗口，VB 将桌面句柄嵌入到自身窗口，VB 将桌面句柄嵌入本程序窗口，VB 将桌面句柄嵌入自身窗口，VB 将桌面嵌入本程序/自身，VB 将桌面嵌入本程序窗口，VB 将桌面嵌入自身窗口，VB 将桌面嵌入本程序，VB 将桌面嵌入自身，VB 桌面嵌入本程序，VB 桌面嵌入自身，VB 嵌入桌面，VB 桌面嵌入，VB 嵌入，VB 桌面，VB FindWindow，VB SetParent，SetParent FindWindow("progman"， vbNullString)， Me.hWnd。

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