Кстати, если интересно, то можно распахнуть форму на всю клиентскую область не максимизируя её, следовательно кнопка с крестиком там не появится. Примерный код такой:

В Option Explisit стандартного модуля

Public Declare Function MoveWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, _
ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hwndParent&, ByVal hwndChildAfter&, ByVal lpszClass$, ByVal lpszWindow$) As Long
Public Declare Function GetClientRect Lib "user32" _
(ByVal hwnd&, ByRef lpRect As RECT) As Long

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

'В модуль загрузки формы

Dim rctMain As RECT
Dim hMDIClient as long

hMDIClient = FindWindowEx(Application.hWndAccessApp, 0&, "MDIClient", vbNullString)
Call GetClientRect(hMDIClient, rctMain)

Call MoveWindow(Me.hwnd, 0, 0, rctMain.Right - rctMain.Left, _
rctMain.Bottom - rctMain.Top, 1)

Пробовал - получалось на А97

2 ЛП

А хрен его знает, просто была задача размазать форму по клиентской области без пресловутого крестика. На тот момент это подошло. Кстати это была форма, в которой всё было поотключено, кнопки, заголовок и т.п., по моему даже отсутствовала граница, в общем этакий фон.