win+d 也不会被切换 显示桌面也不会消失 就像桌面的便签软件那样。
试试这个
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim hwnd As IntPtr
hwnd = FindWindow(vbNullString, "Program Manager") '窗口不可移动
'’hwnd = GetNextWindow(hwnd, GW_HWNDPREV) '窗口在图标之上可移动
SetParent(Me.Handle, hwnd)
End Sub