Paste the following code into a module, then call it with
   Call Buttons(false)
To turn them off and
   Call Buttons(True)
to turn them on

********** Code Start *************
Option Explicit

Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_SYSMENU = &H80000

Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOZORDER = &H4
Public Const SWP_FRAMECHANGED = &H20

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

Private Declare Function SetWindowPos _
Lib "user32" ( _
 ByVal hwnd As Long, _
 ByVal hWndInsertAfter As Long, _
 ByVal X As Long, _
 ByVal Y As Long, _
 ByVal cx As Long, _
 ByVal cy As Long, _
 ByVal wFlags As Long _
) As Long
' **************************************************
'

Function AccessTitleBar(Show As Boolean) As Long
 Dim hwnd As Long
 Dim nIndex As Long
 Dim dwNewLong As Long
 Dim dwLong As Long
 Dim wFlags As Long

 hwnd = hWndAccessApp
 nIndex = GWL_STYLE
 wFlags = SWP_NOSIZE + SWP_NOZORDER + SWP_FRAMECHANGED + SWP_NOMOVE

 dwLong = GetWindowLong(hwnd, nIndex)

 If Show Then
   dwNewLong = (dwLong Or WS_CAPTION)
 Else
   dwNewLong = (dwLong And Not WS_CAPTION)
 End If

 Call SetWindowLong(hwnd, nIndex, dwNewLong)
 Call SetWindowPos(hwnd, 0&, 0&, 0&, 0&, 0&, wFlags)
End Function

Function Buttons(Show As Boolean) As Long
 Dim hwnd As Long
 Dim nIndex As Long
 Dim dwNewLong As Long
 Dim dwLong As Long

 hwnd = hWndAccessApp
 nIndex = GWL_STYLE

 Const wFlags = SWP_NOSIZE + SWP_NOZORDER + SWP_FRAMECHANGED + SWP_NOMOVE
 Const FLAGS_COMBI = WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU

 dwLong = GetWindowLong(hwnd, nIndex)

 If Show Then
   dwNewLong = (dwLong Or FLAGS_COMBI)
 Else
   dwNewLong = (dwLong And Not FLAGS_COMBI)
 End If

 Call SetWindowLong(hwnd, nIndex, dwNewLong)
 Call SetWindowPos(hwnd, 0&, 0&, 0&, 0&, 0&, wFlags)
End Function
' ********** Code End *************

BTW: I think this code originates fromTerry Kreft

Arno R

When I said "a few years back", I was serious. You'll have to go back
quite a few years to find the posts (1997-99 time frame).  Search for
"NoControlBox" at Google, and you'll probably find the thread.

I think that thread just discusses how to disable the controls,
however there was also another thread that discussed totally removing
the controls from the title bar, but I also remember we dropped the
thread fairly quickly when we "were made aware of" what we were
posting.  (That thread may have been over in one of the VB discussion
groups however....)

Yeah, it's cool and rather fun to do, but it just makes users jump
through hoops to overcome a "neat" little hack of yours.  And the
_last_ thing you want a user to do (especially in a database!) is to
find their own "neat" tricks.