[Resolvido]Imagem como Fundo Access

boas,
simplesmente magnifico... mas amigo JP acabei por fazer o seguinte ( acho que fica melhor ) No entanto fiquei com o seu registo agradeço imenso a este Cristiano Ronaldo do access
Deixo o que fiz :
Option Compare Database
Option Explicit


Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long


Dim dwReturn As Long


Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3


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



Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean


If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If


If Procedure = "Maximize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If


If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWNORMAL)
End If


If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If


If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If


If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If

End Function

Grande JP sim tem razão... total ! inicialmente pensei em colocar uma imagem de fundo e tentei mas depois olhei alguns exemplos do pessoal e optei por esconder a janela... sorry !!! podia ter informado logo mas idealizei a bd de outra forma...
peço imensa desculpa...