Access 2003 ausblenden Click-Ereignis

access ausgeblendet, Click Ereignis

Wenn ich das Access-Fenster mit VBA ausblende
Code:

Const SW_HIDE = 0
Const SW_NORMAL = 1

Dim hWindow As Long
Dim nResult As Long
Dim nCmdShow As Long
hWindow = Application.hWndAccessApp
nCmdShow = SW_HIDE
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
Call ShowWindow(Me.hWnd, SW_NORMAL)

funktioniert ein Ergnis, dass Drücken auf einen Button ausgelöst wird, erst nach dem zweiten Click. Hat jemand eine ähnliche Erfahrung gemacht oder eine Lösung gefunden?