Free Code

This is a sample of all of the glorious code that's available in my Code Vault which is available to Gold Members. If you'd like more information on joining, click here.

Description

This code will allow you to toggle ON or OFF the control box, maximize, minimize, and close buttons on a form.

Code

Place this code in a global module:

Option Compare Database Option Explicit Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" _ (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongA" _ (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr Const GWL_STYLE As Long = -16 Const WS_SYSMENU As Long = &H80000 Public Sub ToggleCloseButton(frm As Form, Enable As Boolean) Dim lngStyle As LongPtr lngStyle = GetWindowLongPtr(frm.hWnd, GWL_STYLE) If Enable Then SetWindowLongPtr frm.hWnd, GWL_STYLE, (lngStyle Or WS_SYSMENU) Else SetWindowLongPtr frm.hWnd, GWL_STYLE, (lngStyle And Not WS_SYSMENU) End If End Sub

Usage

Put this code wherever you'd like in a Form module. This will turn the current form's close button OFF:

ToggleCloseButton Me, False

Video

This is covered in the extended cut for my TechHelp video Toggle Close Button.

Questions

Post 'em if ya got 'em

Subscribe to Toggle Close Button Code
Get notifications when this page is updated