I've successfully removed it.

I've added two more api declarations at the top

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

And two more constants

Private Const GWL_STYLE As Long = (-16)
Private Const WS_CAPTION As Long = &HC00000

These have gone into a module called mdlWinAPI with the others,



Then in the module I've changed it around a bit

Sub DisableCloseButton(hwnd As Long)
Dim hMenu As Long
Dim menuItemCount As Long
hMenu = GetSystemMenu(hwnd, 0)
If hMenu Then
IStyle = GetWindowLong(hwnd, GWL_STYLE)
IStyle = IStyle And Not WS_CAPTION
X = SetWindowLong(hwnd, GWL_STYLE, IStyle)
'menuItemCount = GetMenuItemCount(hMenu)
'RemoveMenu hMenu, menuItemCount - 1, MF_REMOVE Or MF_BYPOSITION
DrawMenuBar hwnd
End If
End Sub

I didn't have to change the call or anything in UserForm_Activate.

I found this link
http://www.tek-tips.com/faqs.cfm?fid=5196
Which I took some of the lines from in order to get this working with the
previous suggestion.

Could someone explain what is happening with the calls of "SetWindowLong"
and "GetWindowLong", i'm following it up to that point, but unfortunetly
don't know what this means.

Thanks for everyones help.





"NateBuckley" wrote:

Excellent Stuff, Cheers.

I shall now attempt to go through that and try to understand the calls.

Thanks again!

"RB Smissaert" wrote:

To disable it you can use the Windows API:

In a normal module have this:

Option Explicit
Public Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function DrawMenuBar Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" _
(ByVal hMenu As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, _
ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) _
As Long
Private Const MF_BYPOSITION = &H400
Private Const MF_REMOVE = &H1000

Sub DisableCloseButton(hwnd As Long)

Dim hMenu As Long
Dim menuItemCount As Long

hMenu = GetSystemMenu(hwnd, 0)

If hMenu Then
menuItemCount = GetMenuItemCount(hMenu)
RemoveMenu hMenu, _
menuItemCount - 1, _
MF_REMOVE Or MF_BYPOSITION
DrawMenuBar hwnd
End If

End Sub


In the UserForm code have this:

Private Sub UserForm_Activate()
DisableCloseButton GetActiveWindow()
End Sub

You will need some sort of control on the form to unload it:

Private Sub CommandButton1_Click()
Unload Me
End Sub


RBS


"NateBuckley" wrote in message
...
Hello I'm just wondering if anyone can help me with the following
question:

I have multiple user forms for which on some I wish to remove the X button
at the top that closes the form. I'm guessing I'll have to use the windows
API for this? I've only just started learning the fundementals of Windows
API
Calls, and thus I'm a little stuck.

I'm just wondering what I would have to do, to do this, my user form's
name
is "frm_Mod_Gen_CEmp"

Thanks in advance for any help.