如何Disable the X (close button) on the title bar for mdichi(編號：2741)

●假設
本人自網站下載下列程式碼，主要使得close button失效
1)windows api 部分略
2)變數宣告部分略
3)　'------------------------------------------------
' A1 Disable the X (close button) on the title bar
　　'------------------------------------------------
　　hSysMenu = GetSystemMenu(hwnd, False)

If hSysMenu Then
　　　　nCnt = GetMenuItemCount(hSysMenu)
　　　　If nCnt Then
　　　　　　RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
　　　　　　RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE
　　　　　　DrawMenuBar hwnd
　　　　End If
　　End If
●問題
上述程式碼在非MDIChild=false的表單有效，但至 MDIChild=True的環境之下失效，請問各位先進是否良好的解決方案。
'
'
謝謝
'
'
--------------
Spencer Yang