VB 做桌面绣 遇到技术问题 比较高难!高手来

VB 做桌面绣 遇到技术问题 比较高难!高手来

'面代码复制运行程序即看效Option ExplicitPrivate Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function FindWindowEx Lib "User32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Declare Function SetParent Lib "User32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Sub Form_Load()Dim hWnd As Long, tipwnd As LonghWnd = FindWindow("Progman", vbNullString)hWnd = FindWindowEx(hWnd, 0, "SHELLDLL_DefView", vbNullString)tipwnd = hWndhWnd = FindWindowEx(hWnd, 0, "SysListView32", vbNullString) 'uncommentSetParent Me.hWnd, hWndMe.Top = 500Me.Left = 300End Sub