Ocultar el Boton de Cerrar [X]

Buenos días...

Para ocultar la [X] del formulario e impedir que lo
puedan cerrar de esta forma, estaba utilizando un código
que mefuncionaba muy bien en Office97, pero ahora que lo
trabajo en XP no me funciona.

¿Alguine podria decirme que cambios debo hacerle?
¿O alguien sabe como puedo Ocultar la [X] para Office XP?

Gracias!!!

C O D I G O

'Buscar la Ventana
Private Declare Function FindWindow Lib "User32"
Alias "FindWindowA" (ByVal lpClassName As String, ByVal
lpWindowName As String) As Long
'Obtener el Estilo de la Ventana
Private Declare Function GetWindowLong Lib "User32"
Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex
As Long) As Long
'Definir el Nuevo Estilo de la Ventana
Private Declare Function SetWindowLong Lib "User32"
Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex
As Long, ByVal dwNewLong As Long) As Long
Const WS_SYSMENU = &H80000
Const GWL_STYLE = (-16)

Sub HideCloseButton(oDialog As Object)
Dim hWnd As Long, lStyle As Long
hWnd = FindWindow("ThunderXFrame", oDialog.Caption)
'Obtener el Estilo actual de la Ventana
lStyle = GetWindowLong(hWnd, GWL_STYLE)
'No Desplegar el Menu del Sistema [X]
SetWindowLong hWnd, GWL_STYLE, lStyle And Not WS_SYSMENU
End Sub

- C U A N D O C A R G A E L F O R M -

Sub UserForm_Initialize()
HideCloseButton Me
End Sub