控件转移到桌面后，怎么隐藏任务栏图标

控件转移到桌面后，如何隐藏任务栏图标？
picture1转移前：

picture1转移后：

要解决的问题：如题和上图(转移后图片)

代码：
'声明控件转移
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

'获取桌面句柄
Private Declare Function GetDesktopWindow Lib "user32 " () As Long

Private Sub Command1_Click()
  Call SetParent(Picture1.hWnd, GetDesktopWindow)
End Sub

Private Sub Command2_Click()
  Call SetParent(Picture1.hWnd, Form1.hWnd)
End Sub

找老久，不知道附件从哪能传上来？倒！





[解决办法]
附件可以传到我的资源里，帖子里给链接
[解决办法]
上传到你的资源中即可。