Maximizing/minimizing windows

How can I maximize/minimize a window of an Access application created from VB? I create the object by using:

Code:

---

Set appAccess = CreateObject("Access.Application")
appAccess.Visible = True

---

and I know that appAccess.hWndAccessApp will return the Access window handler. Does it exist an API function I can call to maximize/minimize it?

Thanks in advance.

Code:

---

'in delcarations
Declare Function ShowWindow Lib "User" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer
Const SW_MAXIMIZE = 3
Const SW_MINIMIZE = 6
'to minimize
ShowWindow appAccess.hWndAccessApp, SW_SHOWMINIMIZED
'to maximize
ShowWindow appAccess.hWndAccessApp, SW_SHOWMAXIMIZED

---