'*********************************************************
' Acercade
' 
' Código que visualiza un cuadro de diálogo "Acerca de"
' y que permite visualizar en él el icono que tenga la
' base de datos. Si no hubiera icono asociado, se
' visualizaría el logo de Windows.
'
' Juan M. Afán de Ribera
' Mayo/2003
'
'
Private Declare Function LoadImage _
                Lib "user32" _
                Alias "LoadImageA" _
                (ByVal hInst As Long, _
                ByVal lpsz As String, _
                ByVal un1 As Long, _
                ByVal n1 As Long, _
                ByVal n2 As Long, _
                ByVal un2 As Long) As Long
   
Private Declare Function ShellAbout _
                Lib "shell32.dll" _
                Alias "ShellAboutA" _
                (ByVal hwnd As Long, _
                ByVal szApp As String, _
                ByVal szOtherStuff As String, _
                ByVal hIcon As Long) As Long
      
Private Const IMAGE_ICON = 1
Private Const LR_LOADFROMFILE = &H10

Sub Acercade()
Dim titulo As String
Dim texto As String
Dim iconoBD As String
Dim hIcono As Long

   titulo = " -> Cuadro Acerca de..."
   texto = "Autor: Juan M. Afán de Ribera"
   
   On Error Resume Next
   iconoBD = CurrentDb.Properties("AppIcon")
   
   hIcono = LoadImage(0&, iconoBD, IMAGE_ICON, _
                      32, 32, LR_LOADFROMFILE)

   ShellAbout hWndAccessApp, titulo, texto, hIcono

End Sub
'*********************************************************