如何去掉子表單的關閉按鈕.右上方的那個X

如何去掉子表單的關閉按鈕.右上方的那個X

Private   Declare   Function   GetSystemMenu   Lib   "user32"   (ByVal   hwnd   As   Long,   ByVal   bRevert   As   Long)   As   Long 
  Private   Declare   Function   GetMenuItemCount   Lib   "user32"   (ByVal   hMenu   As   Long)   As   Long 
  Private   Declare   Function   RemoveMenu   Lib   "user32"   (ByVal   hMenu   As   Long,   ByVal   nPosition   As   Long,   ByVal   wFlags   As   Long)   As   Long 
  Private   Declare   Function   DrawMenuBar   Lib   "user32"   (ByVal   hwnd   As   Long)   As   Long 
  Private   Const   MF_BYPOSITION   =   &H400& 
  Private   Const   MF_DISABLED   =   &H2& 
  
  Public   Sub   DisableX(Frm   As   Form) 
  Dim   hMenu   As   Long,   nCount   As   Long 
  
  '獲得視窗系統功能表的菜單控制代碼 
  hMenu   =   GetSystemMenu(Frm.hwnd,   0) 
  '得到hMenu指定的菜單的功能表項目數目 
  nCount   =   GetMenuItemCount(hMenu) 
  
  '將系統功能表的最後一個功能表項目移走(最後一個功能表項目是   'Close') 
  Call   RemoveMenu(hMenu,   nCount   -   1,   MF_DISABLED   Or   MF_BYPOSITION) 
  '重畫系統功能表 
  DrawMenuBar   Frm.hwnd 
  End   Sub 
  
  
  Private   Sub   Command1_Click() 
  End 
  End   Sub 
  
  Private   Sub   Form_Load() 
  DisableX   Me 
  End   Sub  
 -------------------------------------------------------------------------------------------------------------------------
在窗體的屬性視窗中,有一項為controlbox設置為false即可