FYI - Closing the form option

[jxiong]

While I was having problem with the size form option,
I accidentally turned the form's "ControlBox" to FALSE
and I lost all of my Min, MAx and X option on the form.

I remember someone was asking a long while ago about
how to get rid of the X option on the form.

So now u know the rest of the story.

[RobDog888]

Paste this code into a new project and
add a command button. Then you can see an example of
how to disable the 'x' (Grey it out).

Private Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
 
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
 
Private Const MF_BYPOSITION = &H400&
 
Private Sub Command1_Click()
 
    Unload Me
 
End Sub
 
Private Sub Form_Load()
 
    RemoveMenu GetSystemMenu(Me.hwnd, 0), 6, MF_BYPOSITION
    
End Sub

i hope it helps. Later