Понадобилось обрамление для формы без заголовка - сделал прямоугольник по периметру формы, потом два один приподнятый другой утопленный - чуть меньше по размерам, вроде неплохо, но жутко неудобно при изменении дизайна формы - прямоугольники на форме мешаются.....
нашел пример для VB http://www.vbnet.ru/faq/showtopic.asp?id=62
но адаптировать для Accessa не могу, как ни пытался.....:(
Вопрос к зубрам - помогите, хоть намек дайте......

Private Sub Form_Open(Cancel As Integer)
Dim lngWidth As Long
Dim lngHeight As Long

Call GetScreenDPI
frmDimensions = FormDimensions(Me) ' запрос размеров формы ME

' тут надо позиционировать два прямоугольника по периметру формы
Me.recTop.Left = 30
Me.recTop.Top = 30

Me.recTop.Width = frmDimensions.Width * (TWIPSPERINCH / m_ScreenXdpi) - 30
Me.recTop.Height = frmDimensions.Height * (TWIPSPERINCH / m_ScreenYdpi) - 30

Me.Width = Me.recTop.Width + 50
Me.InsideHeight = Me.recTop.Height + 50

End Sub

Private Function FormDimensions(frm As Form) As Dimensions
Dim frmRect As RECT
GetWindowRect frm.hWnd, frmRect
' возвращает значение в пикселях - надо перевести их в твипы
FormDimensions.Width = frmRect.Right - frmRect.Left
FormDimensions.Height = frmRect.Bottom - frmRect.Top
End Function

Private Sub GetScreenDPI()
Dim lngDC As Long
Dim lngPixelsPerInch As Long
Const nTwipsPerInch = 1440

lngDC = GetDC(0)

'Horizontal
m_ScreenXdpi = apiGetDeviceCaps(lngDC, LOGPIXELSX)
'Vertical
m_ScreenYdpi = apiGetDeviceCaps(lngDC, LOGPIXELSY)

lngDC = ReleaseDC(0, lngDC)
End Sub

объявления стандартные ;) дальше пройти не могу - не хватает шестеренок ;)

Спасибо за ответ, а точнее нельзя .......?

Я пробовал так делать, но....... корректно можно определить и позиционировать (средствами VBA) только .Top и Left а ширину и высоту формы как определить ??? Просто не получается. Вот в апишниках и определил, но застрял с преобразованием в твипы... и прошу совета у гуру....

Можно из этого сделать неплохой сабж по дизайну форм ;).........

http://access.boom.ru/Library/Forms/FormsBorder.htm вот тему дожал ;)))
может кому интересно будет.