Окно приложения MS Access - Сворачивание Окна

Private Sub Command1_Click()
    'DoCmd.RunCommand acCmdAppMinimize 'Сворачиваем MS Access
    'Или:
    Application.RunCommand acCmdAppMinimize 'Сворачиваем MS Access
End Sub

MSA-2003 ( 21 kB) Пример