Disable the close X in a form's upper right corner

Code berikut ini digunakan untuk mendisable Close X pada form



Cara penggunaan : Copy paste code ini ke form code kemudian jalankan, terlihat
bahwa close X nya sudah disable

 Option Explicit<br /><br />Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long<br />Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long<br /><br />Private Const MF_BYPOSITION = &H400&<br /><br />Private ReadyToClose As Boolean<br />Private Sub RemoveMenus(frm As Form, _<br />remove_restore As Boolean, _<br />remove_move As Boolean, _<br />remove_size As Boolean, _<br />remove_minimize As Boolean, _<br />remove_maximize As Boolean, _<br />remove_seperator As Boolean, _<br />remove_close As Boolean)<br />Dim hMenu As Long<br /><br />' Mengambil dari menu handle pada form<br />hMenu = GetSystemMenu(hwnd, False)<br /><br />If remove_close Then DeleteMenu hMenu, 6, MF_BYPOSITION<br />If remove_seperator Then DeleteMenu hMenu, 5, MF_BYPOSITION<br />If remove_maximize Then DeleteMenu hMenu, 4, MF_BYPOSITION<br />If remove_minimize Then DeleteMenu hMenu, 3, MF_BYPOSITION<br />If remove_size Then DeleteMenu hMenu, 2, MF_BYPOSITION<br />If remove_move Then DeleteMenu hMenu, 1, MF_BYPOSITION<br />If remove_restore Then DeleteMenu hMenu, 0, MF_BYPOSITION<br />End Sub<br /><br />Private Sub cmdClose_Click()<br />ReadyToClose = True<br />Unload Me<br />End Sub<br /><br />Private Sub Form_Load()<br />' Menghapus sistem close pada menu separator.<br />RemoveMenus Me, False, False, _<br />False, False, False, True, True<br />End Sub<br /><br />' Batalkan jikaReadyToClose dalam modus false.<br />Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)<br />Cancel = Not ReadyToClose<br />End Sub