Private Const SW_HIDE = 0
Private Const GW_OWNER = 4
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub MDIForm_Load()
    Dim rc As Long
    Dim OwnerhWnd As Long
    '从任务管理器列表中移除
    OwnerhWnd = GetWindow(Me.hwnd, GW_OWNER)
    rc = ShowWindow(OwnerhWnd, SW_HIDE)
End Sub