Делаем кнопку закрыть неактивной

[aivus]

А вот Вам кодик интересный- делает кнопку "Закрыть" неактивной:
Создаем модуль с таким содержанием:

Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, _
        ByVal bRevert As Long) As Long
     Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
     Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _
        ByVal nPosition As Long, ByVal wFlags As Long) As Long
     Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
      
     Public Const MF_BYPOSITION = &H400&
     Public Const MF_DISABLED = &H2&

Public Sub DisableX(frm As Form)
        Dim hMenu As Long, nCount As Long
        hMenu = GetSystemMenu(frm.hwnd, 0)
        nCount = GetMenuItemCount(hMenu)
        Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
        DrawMenuBar frm.hwnd
     End Sub

В лоаде формы приписуем

Call DisableX(имя_формы)

humbsup: