Access - Mostrar Icono de Access en barra de tareas

Option Compare Database

Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _

(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _

(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" _

(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

'Constantes

Private Const GWL_EXSTYLE = (-20)

Private Const WS_EX_LAYERED = &H80000

Private Const LWA_ALPHA = &H2

Function OcultarVentanaAccess(Ocultar As Boolean) As Boolean

Dim lngHwnd As Long

Dim bytNivel As Byte

    lngHwnd = Application.hWndAccessApp

    bytNivel = IIf(Ocultar, 0, 255)

    SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED

    SetLayeredWindowAttributes lngHwnd, 0, bytNivel, LWA_ALPHA

    OcultarVentanaAccess = True

End Function