Access - Error tamaño del formulario activo

Hola,

Antes de nada mil gracias por dedicar un minuto en leer mi post.

Estoy ejecutando una aplicación en access con visual basic 7.0. Tengo un módulo independiente en el que tengo una función que redimensiona los formularios, y la llamo cada vez que abro uno. Pero al abrir un formulario a veces me da un error de que el formulario es demasiado grande:

"The control or subform control is to large for this location"

He pensado en ajustar el tamaño, de manera que si se pase, tome el valor de Screen.ActiveForm.Form.InsideHeight
En Access 2010 me funciona a la perfección, y si hago un MsgBox de Screen.ActiveForm.Form.InsideHeight me da un valor numérico. Pero en Access 2003 (con vba 6.5), al debugear, encima de la instrucción Screen.ActiveForm.Form.InsideHeight me sale: "You entered an expression that requires a form to be the active window"

¿Qué estoy haciendo mal?
Mil gracias!

Saludos


Dim height_max As Long
Dim width_max As Long
height_max = Screen.ActiveForm.Form.InsideHeight
width_max = Screen.ActiveForm.Form.Width

For i = 0 To Screen.ActiveForm.Controls.count - 1
Next i


Sin embargo, no supera el tamaño, ya que:
moverx = 11808
heigth_max = 15030

movery= 6848
width_max = 15825


Gracias de nuevo!
Saludos y buen día.