隐藏窗体出现函数错误

1.采用ShowWindow 函数:

   首先在模块中声明下面的代码:

   Option Explicit

   Private Declare Function ShowWindow Lib "user32" _
 (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

   然后在窗体加载代码中调用:

       ShowWindow Me.Application.hWndAccessApp, 0'隐藏
用这个代码写的隐藏窗体，打开access后出现ShowWindow变蓝，出现错误子过程或函数。这是什么原因，那位老师知道。