16,555
社区成员
发帖
与我相关
我的任务
分享
Public Class Form1
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Public Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer
Public Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetParent(Me.Handle, FindWindow("Progman", "Program Manager"))
End Sub
End Class