'*********************************************************
' Function FirstDbcDataObject(
'          Name As String,
'          ObjType As AcObjectType,
'          Attribs As Long) As Boolean
'
' Este método devuelve en sus argumentos el nombre, tipo 
' de objeto y atributos del primero objeto (tabla o 
' consulta) de la base de datos, ordenado alfabéticamente.
'
' Argumentos:
'   Name: Variable que recibirá el nombre del objeto
'   ObjType: Variable que recibirá el tipo de objeto
'            Valores:
'                     0 = Tabla
'                     1 = Consulta
'   Attribs: Atributos del objeto devuelto
'
' (los atributos que aparecen en el ejemplo son los que 
' he podido averiguar, de momento)
'
Sub wzFirstDbcDataObject()
Dim wzName As String
Dim wzObjType As Long
Dim wzAttribs As Long

Const wzNormal = 0
Const wzHidden = 8
Const wzLinked = 2097152

    WizHook.Key = 51488399

    WizHook.FirstDbcDataObject wzName, wzObjType, _
                               wzAttribs
    Debug.Print "Nombre: " & wzName
    Debug.Print "Tipo: " & IIf(wzObjType = 0, "Tabla", _
                               "Consulta")
    
    Debug.Print "Atributos:",
    If (wzAttribs And wzNormal) = wzNormal Then
        Debug.Print "Normal",
    End If
    If (wzAttribs And wzHidden) = wzHidden Then
        Debug.Print "Oculto",
    End If
    If (wzAttribs And wzLinked) = wzLinked Then
        Debug.Print "Vinculado"
    End If
    
End Sub
'********************************************************