Access - RE:Cambio tamaño formulario automáticamente

Create en un modulo global estas dos instrucciones

Declare Function glrMoveWindows Lib "user32" Alias "MoveWindow" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWindth As Long, ByVal nHeight As Long, ByVal bRepair As Long) As Long

Public posicionformulario As String ' para cargar la funcion en cada formulario en el evento Al Abrir
Public MargenIzquierdo As Integer
Public MargenSuperior As Integer
Public Anchura As Integer
Public Altura As Integer

En el evento al abrir (del formulario)

Private Sub Form_Open(Cancel As Integer)
MargenIzquierdo = 240
MargenSuperior = 100
Anchura = 615
Altura = 320
Dim posicion As String
posicionformulario = glrMoveWindows(Me.hwnd, MargenIzquierdo, MargenSuperior, Anchura, Altura, True)
End Sub
*** Tendrás que cambiar las dimensiones a tus necesidades.
Saludos desde Cádiz-Andalucia