Disable and Enable the X button on a form

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

Scott Seligman

Version Compatibility: Visual Basic 5

More information:

This routine allows you to disable and re-enable the 'X' in the top corner of any form. Usage should be self-explanatory.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd _ As Long, ByVal bRevert As Boolean) 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_REMOVE = &H1000&

Code: