Error con código para ocultar entorno de Access

¡Hola!

Estoy intentando configurar Access para que oculte su entorno de trabajo al abrir una base de datos. En el formulario inicial he ingresado el siguiente código en el evento "Al abrir":

----

Option Compare Database

Private Sub Form_Open(Cancel As Integer)
Option Explicit
Const SW_HIDE = 0
Const SW_NORMAL = 1
Const SW_MINIMIZED = 2
Const SW_MAXIMIZED = 3
Private Declare PtrSafe Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Form_Open(Cancel As Integer)
Call ShowWindow(hWndAccessApp, SW_HIDE)
DoCmd.OpenForm "F_Panel_Principal", windowmode:=acDialog
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim lngRetCode As Long
lngRetCode = ShowWindow(hWndAccessApp, SW_MAXIMIZED)
End Sub

----

Pero al momento de ejecutar el formulario, el programa arroja el siguiente error:

> La expresión 'Al abrir' que ha especificado como valor de la propiedad de evento produjo el error Los comentarios solamente pueden aparecer después de End Sub, End Function o End Property.

He buscado la solución en la web, pero no he sido capaz de arreglarlo ¿alguna idea de cómo solucionar el error?

Gracias de antemano por la colaboración.

Un saludo.

Xavi,

Muchas gracias por la ayuda, efectivamente ese era el problema, ahora funciona perfectamente.

Un saludo.