Disabling a userform's "X" button?

Private Sub UserForm_QueryClose (Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        MsgBox "Don even think about it"
        Cancel = True
    End If
End Sub

Private Sub UserForm_Initialize()
HideCloseButton Me
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
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("ThunderDFrame", oDialog.Caption)
lStyle = GetWindowLong(hWnd, GWL_STYLE)
SetWindowLong hWnd, GWL_STYLE, lStyle And Not WS_SYSMENU
End Sub

Sub ShowUserForm()
frmNoClose.Show vbModeless
Application.Wait Now() + TimeValue("00:00:03")
frmNoClose.Hide
End Sub