In VB, it is forbidden to use ALT+F4 to close windows

Statement:

Private Declare Function getsystemmenu Lib "user32" Alias "GetSystemMenu" (ByVal hwnd as Long, ByVal Brevert as Long) as L Ong

Private Declare Function deletemenu Lib "user32" (ByVal hmenu as Long, ByVal nposition as Long, ByVal wflags as Long) as L Ong

Private Declare Function getmenuitemcount Lib "user32" (ByVal Hmenu as Long) as long Private Const mf_byposition = &h4 00&

Use:

Private Sub Form_Load()
'Vb man 2001
'URL: http://goodvbman.yeah.net
'E-mail: coolde@21cn.com
Dim hwndMenu As Long
Dim c As Long
hwndMenu = GetSystemMenu(Me.hwnd, 0)
c = GetMenuItemCount(hwndMenu)
DeleteMenu hwndMenu, c - 1, MF_BYPOSITION
c = GetMenuItemCount(hwndMenu)
DeleteMenu hwndMenu, c - 1, MF_BYPOSITION
End Sub