UserForms - disabling the little x

[JimBo]

I have forgotten how to disable the little x (top right of a user form) will
someone prompt me please

TIA



__________ Information from ESET NOD32 Antivirus, version of virus signature database 4178 (20090622) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

 

[Patrick Molloy]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
End Sub

 

[JimBo]

Thanks Patrick - Muchly appreciated

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
End Sub




__________ Information from ESET NOD32 Antivirus, version of virus
signature database 4178 (20090622) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

__________ Information from ESET NOD32 Antivirus, version of virus signature database 4178 (20090622) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

 

[Peter T]

Just to add, to prevent close if user clicked the little x but allow the
form to close with other ways

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
msgbox "don't close with the little x"
else
Msgbox "bye"
end if
End Sub

Regards,
Peter T