VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 
   Caption         =   "UserForm1"
   ClientHeight    =   5370
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6570
   OleObjectBlob   =   "UserForm1.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "UserForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim handler As XML_SaxDocument
Dim myXML As SAXXMLReader40
Const TestProj = "C:\Program Files\ABS2004\Sample\ADT Sample Project\" & _
                     "Autodesk Architectural Desktop Sample Project.apj"
' We will Use a Dictionary Document to Capture the relevent information
Dim dicProject As Scripting.Dictionary

Private Sub cmdProjectReader_Click()
    'Set dicProject = New Scripting.Dictionary
    myXML.parseURL TestProj
    Me.txtBoxDoc = handler.GetOutput
    Set dicProject = handler.GetProjectResults
    Me.lblProjectName = dicProject.Item("ProjectName")
    Me.lblProjectNumber = dicProject.Item("ProjectNumber")
    'Got an Odd Attribute name here so just deal with it
    Me.lblProjLocation = dicProject.Item("ProjectProjectLocation")
    Me.lblProjectDescription = dicProject.Item("Description")
    Set handler = Nothing
    Set myXML = Nothing
    Set dicProject = Nothing
End Sub

Private Sub UserForm_Initialize()
    Set handler = New XML_SaxDocument
    Set myXML = New SAXXMLReader40
    Set myXML.contentHandler = handler
End Sub