Come disabilitare il bottone X del ControllBox del Form.


Aggiungere un modulo ed inserire il seguente codice:

Option Explicit

Declare Function GetSystemMenu Lib "User32" _
(ByVal hWnd As Long, ByVal bRevert _
As Integer) As Long
Declare Function RemoveMenu Lib "User32" _
(ByVal hMenu As Long, ByVal nPosition _
As Long, ByVal wFlags As Long) As Long

Public Const MF_BYPOSITION = &H400

Public Function DisabilitaX(myForm As Form) As Long
Dim SystemMenu As Long
SystemMenu = GetSystemMenu(myForm.hWnd, 0)
DisabilitaX = RemoveMenu(SystemMenu, 6, MF_BYPOSITION)
End Function


Nel Form inserire inserire un CommandButton ed il seguente codice:

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
DisabilitaX Me
End Sub

Eseguire l'applicazione e vedrai il Bottone X (chiudi) disabilitato.

Testato su: Windows 98, Windows Me, Windows 2000 Professional