Форумы HiProg.com - MS ACCESS, VBA, VB

ник: osmor
Re: DoCmd.Maximize - Как это сделать с помощью API функций в Аксе если известен Handle формы Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Public Function fMaxfrm(lngH As Long) As Boolean
ShowWindow lngH, SW_SHOWMAXIMIZED
End Function

вызывать
Call fMaxfrm(Me.hwnd)