VB:嵌入桌面的实现

在窗体安置command1按钮

Option Explicit
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 Command1_Click()
Dim Handle As Long    ' 窗口句柄
Handle = FindWindow("Progman", "Program Manager")   ' 获得窗口句柄
SetParent Me.hWnd, Handle
End Sub