Menonaktifkan Tombol Close

Tombol close merupakan tombol yang digunakan untuk menutup Form. Tombol ini terdapat di pojok kanan atas, bertuliskan huruf "X", dan biasanya berwarna merah.

Buat sebuah Module dan ketikkan :
[ VB 6.0 ]

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Sub DisableCloseBtn(ByVal Frm As Form)
Dim h As Long
h = GetSystemMenu(Frm.hwnd, 0)
RemoveMenu h, 6, &H400
RemoveMenu h, 5, &H400
End Sub

[ VB .NET ]

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, ByVal bRevert As Integer) As Integer
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer

Public Sub DisableCloseBtn(ByVal Frm As Form)
Dim h As Integer
h = GetSystemMenu(Frm.Handle.ToInt32, 0)
RemoveMenu(h, 6, &H400)
RemoveMenu(h, 5, &H400)
End Sub

Untuk menggunakannya ketikkan kode berikut di bagian 'Form_Load'

DisableCloseBtn Me

CATATAN : Selain dapat diterapkan pada Form standar, cara diatas dapat juga diterapkan pada Form MDI.