Resizing a form in Access 97

[serino]

I am trying to resize a form in Access97 using the code below and I cannot get it to work. It works well in access 2000.

What am I missing here?

[blue]
Private Sub Form_Load()
Dim intRight As Integer
Dim intDown As Integer
Dim intWidth As Integer
Dim intHeight As Integer
intRight = 3200
intDown = 2345
intWidth = 12000
intHeight = 8700
DoCmd.MoveSize intRight, intDown, intWidth, intHeight
End Sub [/blue]

 

[serino]

additionally, the function for this is:

Option Explicit

Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long

End Type