lockclose.bas

一个商场财务系统

Attribute VB_Name = "Module1"
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert 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 Const MF_REMOVE = &H1000
Private Const SC_CLOSE = &HF060
Public Sub Disabled(A, B)
    Dim hMenu, hwndMenu As Long
    Dim c As Long
    hMenu = GetSystemMenu(A, 0)
    RemoveMenu hMenu, SC_CLOSE, MF_REMOVE
End Sub