Bloquear boton cerrar

[chicho28]

Que tal ......
Tengo un formulario en el cual quiero bloquear el boton cerrar ya tengo la programacion y si funciona...
Pero le agrego un skin label al formulario y el boton cerrar se desbloque automaticamente...
Me podrian ayudar a solucionar este problema.......

Esto esta en el modulo..
****************************************
Public Const SC_CLOSE = &HF060
Public Const MF_BYCOMMAND = &H0
Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function DeleteMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long


esto esta en el formulario................
****************************************
Public Sub DisableXbutton(ByVal frmHwnd As Long)
Dim hMenu As Long
hMenu = GetSystemMenu(frmHwnd, 0&)
If hMenu Then
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
DrawMenuBar (frmHwnd)
End If
End Sub



y esto en el load................
DisableXbutton (Me.hwnd)